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ABSTRACT 


An  implementation  of  a  multiuser  timeshared  operating 
system  for  the  Sycor  440  Clustered  Terminal  Processing 
System  is  described.  Utilizing  an  8080  microDrocessor,  this 
system  provides  a  virtual  operating  environment  consisting 
of  a  console  device*  eiqht  floppy  disk  drives/  and  up  to  32 
virtual  f  1  o  p  d  y  dis*  imaaes  on  a  five  megabyte  movaole-head 
disk.  In  addition,  a  Centronix  serial  printer  is 
incoroorated  into  the  svstem  as  a  aeaicateo  device  for  any 
one  of  up  to  four  concurrent  users.  The  operating  system 
supoorts  utility  orcgrams  including  an  editor,  assembler, 
and  debugger  which  facilitate  microcomputer  program 
development  at  the  Naval  Postaraauate  School. 
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I.   INTRODUCTION 


A.   BACKGROUND 


In  the  summer  of  197o  the  ComDuter  Science  DeDartment  at 
the  Naval  Postgraduate  School  (NPS)  acquired  a  Sycor  Model 
440  Clustered  Terminal  Processing  Svstem  for  use  in  the  NPS 
microcomputer  laocratory.  The  Sycor  440  utilizes  an  Intel 
808U  LSI  chip  as  the  CPU  of  a  special  purpose  microcomputer 
svstem  designed  primarily  for  data  entry  apo 1 i c a t i ons .  In 
addition  to  the  80&i)  CPU/  the  Sycor  system  nardware 
configuration  includes  a  five  megabyte  movable-head  disx, 
o4t\  of  random  access  memory  (RAM),  a  cassette  tape  drive, 
and  four  Sycor  4412  disolay  terminals  consisting  of  a 
<eyboard  and  cathode  ray  tube  (CrtT)  disolay  device.  Other 
system  devices  incluoe  a  model  340  communications  terminal, 
a  Centronix  serial  printer  and  an  HS-232  asynchronous 
communication  interface.  As  part  of  the  v'odel  440  System, 
Sycor  supplied  a  comprehensive  package  of  system  software. 
Most  of  this  software  was  designed  to  supoort  applications 
in  the  data  entry  field  which  comorised  tne  Sycor  440's 
primary  ma rket . 

while  the  Sycor  44Q  made  a  significant  addition  to  the 
hardware  comolement  of  tne  NPS  microcomputer  laboratory,  a 
great  deal  of  effort  was  needed  to  inteorate  the  system  into 
the   microcomputer  laboratory  to  ensure  that  maximum  benefit 


would  be  derived  from  the  new  equipment.  The  first  step  in 
the  integration  of  the  Sycor  440  hardware  within  the 
microcomputer  laboratory  was  undertaken  as  a  thesis  project 
in  the  winter  of  1977.  Kenneth  J.  brown  and  Davia  R. 
Bullock  aeserve  a  great  deal  of  credit  for  the  conception 
and  the  design  of  the  Microcomputer  Timeshared  System  (MTS). 
Their  thesis  work  is  contained  in  Ref.  1.  MIS  was  develoDed 
as  a  virtual  machine  monitor  (  V  M  M  }  to  support  a  user 
operating  system  for  rr  i  c  rocomout  er  orogram  development.  An 
in  aepth  description  of  the  system  is  given  in  Chapter  III. 
Because  much  of  MTS  haa  not  been  debuqgea  and  oecause  it  did 
not  support  an  operating  system  which  woula  accommoaate 
student  use*  thesis  work  was  continued  in  the  sprinq  of  1977 
to  accompiisn  these  tasks. 

B.   GOALS  AND  OBJECTIVES 


The  primarv  goal  of  this  thesis  croject  was 
implementation  of  ao  operating  system  on  the  Sycor  440 
microcomputer  system  caoablp  of  suoportina  program 
development  at  the  NPS  microcomputer  laboratory. 
Realization  of  this  goal  required  the  debugging, 
modification*  and  amplification  of  the  basic  ^  T  3  proaram. 
Since  the  amount  of  deougging  effort  required  to  achieve  the 
primary  objective  of  the  thesis  could  not  be  accurately 
determined,  several  suoqoals  were  established  which  would  be 
undertaken  if  adeauate  time  was  availaole.  These  subgoals 
included  the  inteoration  of  the  serial  orinter,  the  cassette 


tape   ari ve    and    the    KS-232    compatible    asynchronous 
communication  interface  with  the  basic  MTS  program. 

C.   PKObLtM  DEFINITION 

Since  an  undetermined  prooortion  of  the  work  requireu  to 
accomolish  the  Drimary  goal  of  this  thesis  would  oe  the 
debugging  of  a  major  software  project*  it  was  decided  to 
improve  upon  the  debugging  tools  available.  At  the  outset* 
the  only  tool  available  was  the  Sycor  Model  340 
Communications  Terminal.  This  terminal  was  oesiqneo  for  an 
earlier  version  of  tne  Sycor  440  system  ana  the  scope  of  its 
useful  debugging  commands  was  quite  limited.  therefore*  the 
development  of  the  MTS  Debuager  Tool  (MOT)  was  undertaken. 
written  in  a  systems  development  language  called  M  L  -  8  0  * 
written  oy  L.R.B.  Peoroso  at  NPS  in  1975,  this  tool  greatly 
assisted  in  the  accomplishment  of  the  thesis  qoals.  A 
detailed  descriotion  cf  ML-60  is  contained  in  Ref.  11. 

Once  deougaing  of  the  basic  MTS  program  was 
accomplished*  several  test  programs  were  written  to  check 
the  various  MTS  service  calls;  in  particular*  the  disk  and 
terminal  I/O  functions.  Flawless  operation  of  these 
routines  was  reauireo  prior  to  implementing  an  operating 
system  with  MTS.  A  detailed  description  of  the  steps 
required  for  the  i mo  1 emen t a t i on  of  a  user  operatinq  system 
on  the  Sycor  440  Clustered  Terminal  System  is  contained  in 
the  later  chapters. 
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II.   SYCOR  aaO  HARDWARE  DESCRIPTION 


The  Sycor  440  Clustered  Terminal  Processing  System 
located  in  the  NPS  microcomputer  laboratory  consists  of  a 
Centronix  serial  orinter,  four  display  terminals*  the  Sycor 
model  340  communications  terminal/  an  RS-232  asynchronous 
communications  interface*  ana  a  desk-high  control  unit 
containing  a  cassette  drive.  The  440  control  unit  contains 
the  system  logic  and  memory*  consisting  of  two  Intel  80c)0 
processor  chips*  64K  of  random  access  memory  (RAM)*  driver 
interfaces  for  all  oe r i one ra 1 s *  a  five  megabyte  mini-aisk 
and  the  cassette  tape  drive. 

One  of  the  two  8080's  located  in  the  440  control  unit 
serves  as  a  controller  for  the  five  megabyte  mini-disk.  The 
mini-disk*  which  is  the  primary  auxiliary  storage  aevice  for 
the  440  system  holds  the  system  software  including  both  the 
Svcor  and  the  MTS  ooerating  systems  as  well  as  the  users' 
files.  Ihe  mini-disk  is  a  single  platter*  movable  heaa  aisk 
which  is  seamented  in  51?  byte  sectors.  There  are  800 
traces  on  the  aisk  with  13  sectors  oer  track.  Data  transfer 
between  RAM  ana  the  mini-disk  is  via  direct  memory  access 
(DMA).  Ihe  mini-aisk  controller  communicates  with  the  host 
6060  CPU  through  a  13  byte  disk  control  dock  (DCR)  located 
at  a  fixed  location  in  memory  CU. 

Ihe  other  8080  chip  founa  in  the  440  control  unit  serves 
as   the   system  CPU.   Ihe  8080  intruction  set  consists  of  78 
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data  transfer/  arithmetic*  logical/  branch/  stack/  1/0/  and 
machine  control  instructions  15] .  A  comorehens i ve  set  of 
interrupts  including  timer/  auxiliary  storage/  and 
peripheral  device  interrupts  are  provided  by  the  Svcor  440. 
Control  information  and  data  are  exchanged  between  the  dObO 
CPU  and  the  Sycor  perioheral  devices  through  the  I/O  ports/ 
or  latches/  provided  on  the  6080  chip. 

The  Sycor  440  system  supports  synchronous  and 
asynchronous  communication  devices/  up  to  eiaht  display 
terminals/  serial  and  line  orinters  and  card  readers. 
Presently/  the  Sycor  44  0  system  at  UPS  is  configured  with 
four  4412  diSDlay  terminals  consisting  of  a  keyboard  and  CRT 
disolay  screen.  Each  terminal  is  capable  of  displaying  an 
eight  line  image  of  a  576  byte  terminal  buffer  which  is 
located  in  RAM.  Also  included  is  a  Centronix  serial  printer 
which  allows  hard  copy  outout  of  files  under  both  the  Sycor 
ana  the  MTS  operatina  systems.  In  addition  to  the  mini- 
disk/ auxiliary  storace  on  the  Sycor  440  is  orovidea  by  a 
cassette  drive  which  is  located  in  the  control  unit.  lhis 
drive  provides  a  means  for  loadina  the  Sycor  system  software 
onto  the  mini-disk.  The  current  Sycor  440  systems 
configuration  also  includes  an  RS-232  communications 
interface  which  can,  via  telephone  line/  provide  a  data  link 
to  both  the  PDP-11  minicomputer  and  the  school's  IBM  3©0. 
Finally/  the  Sycor  440  is  equiopea  with  a  moael  340 
communications  terminal.  This  device  can  be  utilized  as  a 
hardware  debugger  and  it  also  nrovioes  a  software  package 
which  includes  Drovisions  for  loading  and  oumoing  nex  format 
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program  files  between  cassette  taoe  and  440  RAM  and  for 
translating  hex  format  tapes  into  the  Sycor  relocatable 
format.  fhis  last  furction  of  the  340  terminal  is  important 
since  a  mini-aisk  file  must  be  in  the  relocatable  format  to 
be  properly  loaded  into  RAM  by  the  Sycor  Loaaer. 

The  Sycor  440  system  can  suoport  other  peripherals 
including  magnetic  tace  drives*  floppy  dis*  drives/  ana  card 
readers;  however,  these  devices  are  not  presently  included 
in  the  Sycor  hardware  in  the  NPS  microcomputer  laboratory. 
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III.   MTS  DESCRIPTION 


A.  BACKGROUND 

MIS  was  developed  in  order  to  integrate  the  Sycor  440 
system  into  the  tutorial  and  development  activities  at  N P S • 
whenever  possible*  VTS  utilizes  the  Sycor  file  system  to 
avoid  the  duplication  of  system  facilities.  MTS  provides  a 
man-machine  interface  at  the  display  terminals  which  is 
simple*  flexible*  ana  convenient*  incorporating  the  best 
features  of  interactive  computer  systems  at  N P S . 

B.  MTS  INTERNAL  DESIGN  FEATURES 

MTS  was  designed  to  provide  a  timeshared*  virtual  riObO 
microcomputer  environment  for  microcomputer  svstem 
development.  As  a  timesharing  system*  MTS  is  characterized 
oy  the  followinq  features: 

(1)  the  use  of  swapping  to  imDlement  multiprogramming 

(<f)  the  use  of  interrupt  driven  processor  management  based 

on  a  round-robin  scheduling  algorithm 
(  i )  the   use   of   virtual   flopoy   disks   as   the   orimary 

auxiliary  storage  medium 
( 4  J  the  sharing   of   a   single   dedicated   I/O   device   oy 
multiple  users  til. 
A  brief  description  of  each  of  these  features   is   given   in 
the  remainder  of  this  chapter. 
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Swapping  was  chosen  as  the  memory  management  technique 
employee  by  >M  T  S .  Since  the  Sycor  4  4  0  does  not  provide 
address  translation  hardware*  it  was  not  possible  to 
implement  the  techniaues  of  either  caging  or  dynamic 
partitioning  of  memory.  Static  partitioning  of  memory  was 
considered/  but  since  the  Sycor  440  provides  no  memory 
protection  in  the  form  of  bounds  registers*  one  task 
executing  in  memory  could  access  another  without  detection. 
Swaoping  provides  physical  as  well  as  logical  seperation  of 
user  tasks.  Each  of  up  to  four  tasks  has  a  mini-disk  file 
associated  with  it.  At  any  time  a  task  i  m  a  o  e  may  resiae  in 
RAM  or  in  its  swao  file  on  the  mini-disk,  but  at  no  time  can 
two  task  images  resiae  in  memory  simultaneously?  thus*  task 
integrity  is  maintained.  An  undesirable  effect  of  this 
design  is  that  the  mini-aisk  transfer  rate  limits  system 
responsiveness.  An  improved  mini-aisk  controller  is 
currently  being  developed  oy  Sycor  Inc.  Initial  tests  nave 
shown  that  this  controller  will  imorove  the  mini-aisk 
transfer  rate  by  a  factor  of  from  three  to  four. 

In  order  to  guarantee  e  a  u  i  table  allocation  of  the  CPU 
resource  to  all  active  tasks*  process  management  of  M  T  S  was 
designed  around  an  interrupt  driven  task  scheduler.  A  task 
retains  control  of  the  CPU  until  a  Hardware  timer  generates 
an  interrupt*  signaling  the  ena  of  the  task's  timeslice. 
The  timer  interrupt  handler  then  transfers  control  to  the 
task  scheduler  to  select  a  new  task  for  execution.  To 
protect  the  active  task*  a  software  lock  is  set  to  Drevent 
swapping  until  the  active  task  returns  from  an   MTS   service 
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call  at  which  time  swapping  is  enabled. 

Virtual  f 1 oopy  disks  provide  auxiliary  storage  for  user 
programs.  These  simulated  disks  consist  of  77  tracks/  each 
containing  26  sectors.  Each  sector  is  made  up  of  126  bytes 
to  give  a  total  capacity  of  256K  bytes  of  storage.  The  size 
of  the  virtual  disk  storaae  area  was  chosen  to  reflect  the 
actual  size  of  a  physical  floppy  disk,  but  can  be  changed  to 
any  conveneient  size.  Transfer  of  information  between 
memory  and  the  virtual  floooy  disk  is  accomplished  through  a 
DMA  ouffer  in  the  user's  memory  space.  M T S  utilizes  a 
mapping  function  to  convert  a  sector  adaress  into  a  mini- 
disk sector  number.  Each  user  has  uo  to  eight  virtual 
floppy  disx  drives  available  for  use  with  the  virtual  disks. 

The  last  major  VTS  feature  is  the  sharing  of  dedicated 
devices  bv  multiple  users.  Since  the  cost  of  a 
microcomputer  CPU  makes  up  sucn  a  small  percentage  of  the 
overall  microcomputer  svstem  cost/  mu 1 t i process i no»  rather 
than  multiprogramming,  should  be  the  logical  cnoice  for  the 
design  of  a  timeshared  m i c rocomou t e r  system.  Since  the 
implementation  of  this  concept  was  not  possible  witn  the 
Sycor  44U  hardware*  MTS  emphasizes  the  snaring  of  the 
remaining  system  resources.  The  sharing  of  the  Sycor  4  4  0 
memory  has  already  been  discussed  and  is  implementea  with 
the  use  of  swapping,  crovidino  up  to  46K  of  KAM  for  user 
programs.  Sharing  of  the  mini-dis<  auxiliary  storage  is 
provided  through  the  use  of  the  virtual  f 1 oopy  disx  concept. 
MTS  also  allows  for  the  sharina  of  the  Centronix  serial 
printer,  which   is   discussed   in   chapter   v.    A   oetailed 
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discussion  and  description  of  the  original  MTS  design  and 
its  implementation  on  the  Sycor  440  hardware  can  be  found  in 
Ret.  1. 

Since  MTS  was  designed  to  support  a  user  operating 
system,  and  since  certain  modifications  and  enhancements 
were  necessary  orior  to  incorporating  an  operating  system 
with  MIS,  thesis  work  was  continued  on  the  original  MTS 
program.  The  remaining  chanters  describe  the  steps  which 
were  taken  to  integrate  an  operating  system  into  the  Sycor 
4  4  0  /  MIS  environment. 
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IV.   SYSTEM  DEBUGGING  TOOLS 


A.   SYCUR  HARDWARE 

At  the  outset  of  this  thesis  project*  the  task  of 
deougging  MTS  ana  incorporating  a  user  ooerating  system 
seemed  to  oe  a  well  oefinea  task;  however*  it  soon  became 
aoparent  that  the  tcols  available  for  aeougging  MTS  svstem 
code  were  extremely  limited.  The  Sycor  340  communications 
terminal  provided  the  ability  to  halt  program  execution  at  a 
specified  memory  location  or  breakpoint*  to  examine  the 
contents  of  memory  locations  and  to  moaify  tne  contents  of 
memory  locations  orior  to  resuming  program  execution. 
Although  these  features  proved  to  ce  extremely  valuaole* 
greater  oebugaing  capability  was  necessary  to  realize  tne 
thesis  oojectives.  Efficient  debugging  reauired  tne  ability 
to  examine  the  aeneral  purpose  registers  and  the  program 
status  word  (  P  S  W  )  which  contains  the  accumulator  and  the 
carry*  zero*  oarity*  plus*  and  minus  flag  bits.  To 
effectively  debua  conditional  looic*  the  ability  to  specify 
more  than  one  breakpoint  was  required.  Other  debugging 
functions  which  were  needed  included  the  capabilities  of 
filling  memory*  moving  memory*  and  transferring  information 
between  mini-disk  ana  RAM. 
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B.   MTS  DEBUGGER  TOOL  (MOT) 

For  the  reasons  listed  above/  the  MTS  Debugger  Tool  was 
developed  as  a  first  step  in  the  thesis  project.  This 
software  tool  was  written  as  a  distinct  system  module  which 
interfaces  directly  with  MTS.  The  program  utilizes  MTS 
service  calls  for  display  terminal  and  mini-aisk  I/O  and  for 
other  system  functions.  MDT  incorporates  the  option  of 
setting  two  breakpoints  in  memory  to  check  program 
branching.  Another  feature  of  the  MDT  is  the  ability  to 
start  or  to  resume  execution  of  a  system  Drogram  with 
interrupts  disabled.  This  feature  was  necessitated  for 
debugging  sections  of  MTS  code  where  the  svstem  interruots 
are  disabled.  Additional  MDT  facilities  include  filling 
memory*  setting  the  contents  of  memory  locations*  oisolayinq 
contiguous  64  byte  images  of  memory  at  the  terminal*  reaoina 
a  specified  floppy  disk  from  the  mini-aisk  into  memory*  and 
transferring  data  between  RAM  and  the  mini-disk. 

Ihe  ML)  T  greatly  enhanced  tne  debuagina  phase  necessary 
for  providing  an  operating  system  on  the  Sycor  44u  hardware 
for  student  use  at  NPS.  The  debugger  resides  in  the  system 
area  of  memory  where  it  is  still  available  should  the  need 
for  it  arise.  A  detailed  guide  for  the  use  of  the  MDT  is 
contained  in  the  comment  section  of  the  source  orogram  which 
is  included  with  the  ^TS  Program  Listings. 
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V.   MTS  ENHANCEMENT 


Developing  the  MTS  debuager  not  only  facilitated  the 
debugging  of  MTS  code/  but  it  also  hastened  the  remaining 
development  of  the  basic  MIS  program.  With  the  aid  of  MOT 
several  procedures  in  the  monitor  and  the  service  modules  of 
MTS  were  modified  to  accommodate  an  operating  system.  Major 
areas  of  modification  to  the  original  MTS  code  are  discussed 
in  tne  following  sections. 

A.   FILh  INTEGRITY 

Procedures   for   the    orotection,    unorot ec t i on ,  and 

restriction  of  virtual  f 1 oopy  disks  with  a  four  character 
"passkey"  were  developed  to  replace  the  dummy  procedures  in 
the  original  MTS  coce.  It  was  felt  that  the  completion  of 
these  routines^  which  provide  for  read  and  write  protection 
of  user  file  space/  was  essential  since  MTS  would  eventually 
support  a  multiuser  environment.  A  aetailed  exolanation  of 
these  MIS  commands  is  presented  in  tne  WTS  User's  Guide. 

b.   SYSILM  LOAD  PROCECURE 

Another  enhancement  to  MTS  involved  a  modification  to 
the  MTS  /  SYCOP  interface  which  permits  the  loading  of  MTS 
from  the  Sycor  4  u  0  mini-disk.  This  modification  which  was 
made   to   the   MTS   initial   program   load   routine  causes  a 
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relocation  of  MTS  code  from  1200H  to  OH  in  memory  as  the 
system  is  loaded.  This  shift  of  code  is  necessary  for  the 
successful  operation  of  MTS  code.  This  change  resulted  in 
an  improved  user  environment  and  eliminated  a  tedious  five 
to  ten  minute  load  from  cassette  taDe»  reolacing  it  with  a 
much  simplified  ten  to  fifteen  second  process.  At  the  same 
timer  this  modification  allowed  for  the  disconnection  of  the 
Sycor  3^0  communications  terminal  which  was  used  for  loaainq 
MTS  from  cassette  tape.  Removing  dependency  on  this  major 
piece  of  system  hardware  is  considered  a  significant  system 
enhancemen  t . 

C.   PRlNTtR  INTEGRATION 

As  the  deougaing  of  MTS  code  neared  completion/  a 
decision  was  made  to  incorporate  the  Centronix  serial 
orinter  as  part  of  the  system.  Previously/  a  microcomputer 
user  who  desired  a  hard  coDy  of  a  program  neeoea  to 
interface  with  the  PDP-11  minicom  outer's  line  printer. 
Since  there  is  only  one  data  transmission  line  between  the 
PDP-11  and  the  m i c rocomou t e r s  located  in  the  MPS 
microcomputer  laboratory*  only  the  user  working  at  the 
microcomputer  system  with  this  data  line  connection  could 
access  the  PDP-tl's  line  printer.  Thus,  a  user  with  DOth 
microcomputer  and  ana  PDP-11  familiarity  could;  after  some 
inconvenience/  obtain  a  orinted  listing.  Obviously/  this 
user  environment  is  not  sat  i  factory  for  the  programmer  who 
aesires   to  work  only  with  a  m i c rocomout e r  system.   For  this 
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reason,  line  printer  incorporation  with  MTS   was   considered 
essent  i  a  1  ♦ 

Certain  factors  greatly  affected  the  design  of  the 
printer  interface  with  MTS.  Originally/  the  concept  of 
using  spool  files  for  each  user  desiring  the  use  of  the 
printer  was  given  much  consideration.  This  concept  was  in 
keeping  with  the  overall  virtual  design  of  MTS.  It  would 
allow  a  user  to  outcut  his  text  to  a  printer  spool  file  on 
the  mini-disk  and  then  permit  him  to  continue  work  at  his 
terminal.  The  information  in  the  spool  file  would  oe 
printed  as  the  printer  became  available.  in  theory,  the 
concept  of  spooling  printer  information  for  eacn  user  seemed 
an  ideal  solution  to  printer  manaaement  ana  was  compatible 
with  the  overall  aesign  phi losoony  of  MTS.  however,  the 
operation  of  the  MTS  swapoing  function  showea  tnat  the 
mini-disk  access  times  were  too  high  to  oroviae  efficient 
direct  memory  access  (DMA)  for  large  spool  files.  The  fact 
that  the  memory  buffer  for  the  output  to  a  printer  file 
would  be  bl2  bytes,  the  lenoth  of  a  mini-disk  sector,  meant 
that  a  considerable  numoer  of  mini-aisk  accesses  woula  oe 
reguired  to  write  to  a  spool  file  ana  to  output  spool  file 
information  to  tne  printer.  Several  users  making 
simultaneous  reauests  to  use  the  printer  would  cause  a 
Dottleneck  in  the  overall  system  operation.  For  this 
reason,  it  was  decidec  to  aeOicate  the  printer  to  the  first 
user  requesting  the  device  and  to  advise  all  other  users 
requesting  the  printer  that  the  device  is  in  use.  Since  all 
four    terminals  are       located   in   the   same   area   of   the 
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microcomputer  laboratory*  this  decision  seemed  to  be  a 
Reasonable  alternative. 

Because  of  provisions  made  in  the  original  design  of 
MTS/  implementation  of  the  printer  routine  was  accomplished 
with  few  problems.  A  5  1  <f  byte  buffer  area  was  available 
between  locations  10UH  and  300ri  in  the  system  area  of 
memory.  The  printer  routine  was  coded  such  that  each  time 
this  buffer  is  filled  with  data  directed  for  the  printer/ 
the  contents  of  the  buffer  is  saved  in  a  soec i f i c  print  file 
on  the  Sycor  mini-disk.  This  process  is  continued  until  the 
control -Z  character  is  transmitted  indicating  an  end  of  file 
(EOr).  I  he  EOF  character  triagers  the  initial  data  outout 
to  the  line  printer.  Once  the  intitial  character  has  been 
output*  the  printer  interruot  causes  the  remaining  data  to 
be  output  to  the  printer  on  an  interrupt  basis.  When  the 
EOF  character  is  encountered/  the  orinter  control  flag  is 
turned  off  and  the  Drinter  buffer  pointers  are    reset. 

The  recovery  feature  of  MTS  was  modified  to  accommodate 
the  serial  orinter  should  a  system  crash  occur  durina  the 
output  of  information  to  the  printer.  This  feature  is  made 
possible  since  all  of  the  printer  parameters  are  saved  in 
the  recovery  file  with  tne  other  system  parameters  needed  to 
recover  ^TS  after  a  system  crash.  If  the  user  who  has 
control  of  the  printer  at  the  time  of  the  malfunction  is  not 
the  task  which  caused  the  problem  then  his  printer  output 
will  be  reinitiated  when  MTS  recovers. 
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VI.   IMPLEMENTATION  OF  AN  OPERATING  SYSTEM 


A.   OPERAIING  SYSTEM  SELECTION 

flhen  the  debuaginc  of  MTS  code  was  near  completion  the 
modification  of  an  operating  system  for  the  Sycor  system 
rthicn  would  supoort  program  development  in  the  NPS 
microcomputer  laboratory  could  oe  underta*en.  Initially/  a 
decision  was  made  as  to  which  ooerating  system  to  implement 
with  MIS,  the  choices  being  either  ISIS-II*  whicn  is  the 
Intel  Corp.  system  or  CP/W,  which  was  developed  by  Digital 
Research.  "ef s.  d  and  15  contain  information  pertaining  to 
these  systems.  Since  the  basic  VTS  design  would  have  to  oe 
modified  to  accommodate  ISIS-II  and  because  the  CP/M 
operating  svstem  with  its  support  programs  was  alreaay  in 
use  in  the  NPS  microcomputer  laboratory/  a  decision  was  made 
to  incorporate  CP/M  on  the  Sycor  440  /  MTS  system. 

a.   OPEKAIING  SYSTEM  IMPLEMENTATION 

Prior  to  loading  the  CP/M  ooerating  system  onto  the 
Svcor  44U  mini-disk  certain  modifications  were  necessary  to 
account  for  the  difference  in  system  addresses  between  the 
Intellec  ti  type  microcomputer  where  CP/M  was  currently  beino. 
used  and  the  Sycor  4  4  0  system  with  resident  MTS.  Following 
the  guidelines  of  Refs.  4  and  5/  a  customized  basic  I/O 
proaram  (CBI0S)#  a  customized  CP/M  loader   program   (CLOAD), 
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ana  a  program  to  store  CBIOS  and  CLOAD  onto  the  mini-disk 
(PUISYS)  were  written  with  address  and  offset  changes  to 
match  CP/M  with  the  Sycor  svstem. 

The  main  difference  oetween  the  two  systems  is  that  the 
version  of  CP/M  which  was  written  for  tne  Intel  lee  b  Mod  bO 
microcomputer  is  stored  starting  at  memory  location  0  with 
the  command  control  program  (CCP)  and  the  basic  disk 
ooerating  system  (BDOS)  starting  at  hexadecimal  location 
29Q0H.  AlsOf  the  user  or  transient  program  area  (TPA) 
Degins  at  hexadecimal  location  100H.  On  the  Sycor  U40  CP/M 
has  been  modified  such  that  code  is  stored  at  memory 
location  UOOOH  with  CCP  and  BDOS  storea  starting  at  location 
o90UH  in  memory.  The  TPA  is  based  at  memory  location  UlOOrt. 
This  change  allows  for  tne  loadino  of  M  T  S  code  between  OH 
and  4G00H.  An  exception  to  this  description  of  memory 
storage  occurs  if  a  user  desires  a  larger  memory  image  of 
32K  Oytes  or  4BK  bytes  of  HAM.  In  these  cases/  the  startinq 
location  of  the  CCP  and  BDOS  modules  would  oe  at  either 
A9U0H  or  F900H,  depending  on  tne  P  A  M  image  size  oesirea. 
The  CBIUS  ana  CLOAD  programs  for  these  larger  CP/M  systems 
must  also  oe  moaified  to  accommodate  tnese  changes.  A 
depiction  of  a  memory  image  of  CP/M  for  a  loK  system  with 
MTS  loaded  is  shown  oelow. 
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******************************* 

*  CBIOS  * 
/EOOH    * * 

*  BOOS  * 
7  20  OH    * * 

*  CCP  * 
69  0  OH    * * 

*  * 

*  TPA  * 

*  * 
4100H    * * 

aoooH   * * 

*  * 

*  MTS  * 

*  * 

*  * 
OH    ******************************* 

CP/M  MEMOkY  MAP 
Once  the  CP/M  ooerating  system  was  stored  on  disk/  the 
task  of  recomoi ) ing  various  utilty  programs  was  started. 
The  text  editor  (ED)  and  status  (STAT)  orograms  were  tne 
first  programs  to  oe  modified  and  loaded  on  the  mini-disk. 
Regeneration  of  an  ocject  module  for  these  utility  programs 
with  a  load  address  of  4  1  0  0  H  vice  10UH  was  the  only  code 
change  made  to  the  utility  programs.  After  a  new 
hexadecimal  ooject  file  was  generated  and  stored  in  the 
PDP-11  file  soace,  the  Sycor  440  Interactive  Teletype 
Simulator  (ITS)  program  was  utilized  to  transoort  the  object 
code  via  telephone  line  from  the  PDP-11  to  tne  Sycor  mini- 
disk. The  MDT  was  then  used  to  read  the  desired  utility 
program  from  disk  into  memory.  Once  tne  new  program  was  in 
memory,  the  save  function  of  C  P  /  M  was  utilized  to  write 
memory  onto  tne  virtual  disk,  creatines  a  file  entry  in  tne 
CP/M  file  directory. 
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VII,   CONCLUSIONS  AND  RECOMMENDATIONS 


The  primary  goal  of  this  thesis  project  was  to  implement 
an  ooerating  system  on  the  Svcor  440  microcomputer  system 
capable  of  suoport  ing  orogram  development  in  the  NPS 
microcomputer  laboratory.  Enroute  to  this  goal/  the 
debugging  and  modification  of  existina  system  proarams  which 
had  been  written  during  the  design  and  aevelooirent  phase  of 
the  Microcomputer  Timeshared  System  was  necessary. 

The  first  steD  toward  this  qoal  was  the  develoDment  of 
the  MTS  deougging  tool.  This  software  debugger  comolemented 
the  existing  Sycor  mocel  340  terminal  hardware  debugger  and 
facilitated  the  debuqginq  and  exoansion  of  the  original  MTS 
cooe . 

The  design  of  MTS  provided  areas  for  enhancements  to  the 
basic  system.  Procedures  were  written  to  protect?  restrict? 
and  remove  protection  from  user  file  soace.  It  was  felt 
that  these  routines  were  essential  to  orovide  file  security 
on  a  multiuser  system.  The  Centronix  serial  printer  was 
integrated  into  MTS  and  is  t^e  only  printer  in  the  NPS 
microcomputer  laboratory  which  directly  interfaces  with  a 
microcomputer  system.  This  additional  resource  represents  a 
valuable  tool  for  microcomputer  program  development. 

Following  the  guidelines  of  Kefs.  4  and  5  the 
modification  of  CP/iv  was  accomplished  and  the  revised 
operating  system  was  loaded  onto  the  Sycor  440  system. 
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During  the  imolementat ion  of  CP/M  on  the  Sycor  440,  it 
was  found  that  certain  enhancements  to  the  Sycor  hardware 
woulo  greatly  improve  the  overall  system  Derformance.  These 
enhancements  include  a  fast  multisector  mini -disk  controller 
which  is  oresently  under  development  at  Sycor  Inc.  This 
enhancement  should  be  given  high  priority  since  the  resDonse 
time  of  the  system  with  three  or  four  users  logged  into  ^TS 
/  CP/M  is  noticablv  slower  than  most  timeshared  systems. 
Also*  to  assist  in  future  integration  of  the  Sycor  440  with 
the  present  microcomputer  facilities,  the  aadition  of  the 
Sycor  floppy  dis*  arive  woula  be  auite  beneficial. 

A  secondary  goal  of  the  thesis  project  was  to  continue 
an  evaluation  of  ML-80  as  a  larae  System  development 
language.  During  the  modification  of  M T S  code,  it  was  found 
that  ML-ttQ  orovideo  manv  advantages  over  assemcly  language 
for  microcomputer  programming.  The  algeoraic  notation 
providea  oy  the  1 anguaae  proved  to  be  especially  convenient 
for  working  at  the  register  level.  Also  the  reaoapilitv  of 
source  code  was  extremely  valuaole  during  the  initial  ohase 
of  studying  and  understanding  MTS.  The  drawbacks  of  ML-60 
listed  in  chapter  vl  of  Ret.  1  were  found  to  be  valid. 

Besides  the  recommenaat i ons  for  improved  hardware 
mentioned  aoove,  there  are  several  areas  for  future  MfS 
development.  These  areas  include  the  integration  of  the 
cassette  tape  drive  and  the  RS-232  asynchronous 
communications  interface  into  the  existing  f^TS 
configuration. 
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APPENDIX  A     MTS  USER'S  MANUAL 


The  purpose  of  this  document  is  to  orovide  the  user  with 
the  information  necessary  to  utilize  the  Microcomputer 
Timeshared  System  (  M  T  S  )  .  This  manual  was  originally  prepared 
by  K  .  J.  Brown  and  C.  R  .  Bullock  in  March  1977  and  revised 
by  S .  J,  Larro  and  B.  L.  Knouse  in  Seotember  1977. 

The  contents  of  this  manual  include  information  on 
setting  up  the  Svccr  4  4  u  System  for  use  with  MTS,  loadinq 
and  initial izina  M[s,  a  n  d  interfacing  with  the  MTS  and  u  P  /  M 
operating  systems.  Sections  A  and  b  oroviae  a  aeneral 
description  of  M  T  S  desion  conceDts  and  the  Sycor  4  4  0  System. 
Section  L  provides  the  detailed  information  necessary  to 
interface  the  Svcor  4  4  0  System  and  m  [  S  .  Section  D  contains 
information  on  tne  terminal  design,  key  functions,  and 
system  commands  which  enaole  the  terminal  user  to 
communicate  witn  ^  F  S  .  Section  E  aescrioes  the  MTS  status 
line  display  and  fief  ires  tne  various  messages  displayed  cy 
MTS.  Section  F  details  the  services  oroviaea  for  a  user 
program  oy  M  I"  S  ,  and  the  limitations  on  a  user  program 
running  in  the  MTS  environment.  Section  G  provides  the 
information  required  t o  convert  programs  written  for  fne 
oasic  version  of  CP/M  to  the  ,N,1TS  version  of  CP/M.  The 
complete  MTS  desion  specification  and  implementation 
information  is  contained  in  Ref.  1  and  ^ef.  c. 
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A.   MFS  CONCEPTS  AND  DEFINITIONS 

The  acquisition  of  the  S/cor  4  4  0  Clustered  Terminal 
Processing  System  provided  an  opportunity  for  development  of 
a  shared  environment  for  m i c rocompu t er  research  and 
development.  In  response*  the  ^ 1 c rocomDut e r  1 imeshared 
System  (MTS)  was  designed  and  built  to  Drovide  the  basic 
machine  interface  ano  system  management  functions  necessary 
for  a  shared  environment. 

The  purpose  of  WTS  is  to  provide  ar\  interface  between 
the  bare  Sycor  4  4  0  machine  and  up  to  four  user  t  a  s  <  s 
executing  concurrently.  The  KJ '  T  S  environment/  as  viewed  dv 
the  user/  provides  all  the  m i c roorocesso r  facilities 
reguired  for  m i c rocomout e r  research  and  development.  From  a 
system  point  of  view/  M!S  manaaes  the  available  hardware  to 
ensure  that  the  hardware  resources  are  equitably  and 
efficiently  allocated  to  comoeting  user  programs.  MTS  is 
designed  to  interface  with  a  version  of  CP/V  modified  to  run 
on  the  Sycor  440.  Tnis  enables  al 1  systems  and  proorams 
designed  to  run  with  the  CP/M  operating  svstem  to  run  on  the 
Sycor  440  with  minor  modifications  (such  as  a  change  in  load 
address).  This  includes  all  the  development  facilities 
availaole  with  C  P / M ,  such  as  the  text  editor/  dynamic 
debugger/  assembler/  etc.  A  list  of  references  for  C P / M  and 
its  facilities  is  contained  in  section  G  Pef.  3  through  Ret. 
6. 
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B.   SYCOR  440  HARDWARE  DESCRIPTION 

The  Sycor  440  Clustered  Terminal  Processing  System  at 
iMPS  is  composed  of  a  control  unit  containing  a  cassette  tape 
ari ve»  four  disolay  terminals^  a  Centronix  matrix  printer/ 
and  a  Sycor  Model  340  Communications  Terminal. 

The  control  unit  is  the  heart  of  the  440  system. 
Contained  within  a  waist-high  cabinet  are  random  and  control 
logic  including  two  8080  chips*  b  4  K  of  random  access  memory 
(RAM),  interfaces  for  all  oeriDheral  devices,  a  five 
megaoyte  fixed  dis</  as  well  as  the  aforementioned  cassette 
t  ape  drive. 

Located  together  en  the  front  of  the  control  unit  are  an 
ON/UFF/PESET  <eyloc<  and  system  status  o a n e 1  .  Turning  the 
keylock  to  the  RESET  position  activates  a  aiaanostic 
bootstrap  program  locatea  in  read-only  memory  (ROM).  This 
oootstrap  proaram  performs  several  diagnostic  tests  on  tne 
CPU/  memory,  ana  system  loao  aevice  (cassette  or  mini-disk) 
and  then  initiates  system  loaaina.  The  status  of  the 
diaanostic  tests  is  inaicatea  oy  a  series  of  red  liahts  on 
the  system  status  panel.  These  lights  are  turned  off  in 
sequence  as  each  phase  of  the  test  is  successfully 
completed.  iihen  all  red  liahts  have  been  turned  off/  three 
green  liahts  on  the  pane)  will  remain  lit  to  indicate  that 
all  power  suoolies  are  functioning  normally.  There  is  also 
one  additional  red  light  at  the  bottom  of  the  system  status 
panel  which  only  co^es  on  if  the  temperature  inside  the 
control  unit  cabinet  exceeds  normal  ooerat  ng  limits. 
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One  of  the  two  8080  cMos  locatea  in  the  4  4  0  control 
unit  serves  as  the  system  CPU.  The  8080  instruction  set 
consists  of  the  78  data  transfer/  arithmetic*  logical* 
branch*  stack*  I/O*  and  machine  control  instructions 
described  in  Ref.  9.  The  Sycor  440  provides  a  comprehensive 
set  of  prioritized  interruots  incluaing  a  timer*  peripheral 
device*  and  auxiliary  storage  device  interrupts.  Passing 
control  information  ana  data  between  the  8080  CPU  and 
peripheral  devices  is  accomplished  by  utilizing  the  1/0 
ports  (called  latches  in  Sycor  literature)  orovidea  on  the 
6080  cnip. 

The  second  8080  chiD  found  in  the  control  unit  acts  as  a 
controller  for  the  mini-disk.  The  mini-aisk  is  a  single 
platter*  movable  head*  fixed  disk  blocked  into  512  bvte 
sectors.  There  are  600  trac<s  on  the  disk  with  13  sectors 
per  track.  Data  transfer  between  RAM  ana  the  mini-aisk  is 
via  direct  memory  access  (DMA).  The  mini-disk  controller 
communicates  with  the  host  wo80  CPU  through  a  13  ovte  disk 
control  blocK  (DCB)  located  at  a  fixed  location  in  memory. 

Peripherals  supported  by  the  Sycor  440  system  include 
binary  syncnronous  And  asynchronous  communication  devices* 
up  to  eight  oisolay  terminals*  serial  and  line  printers*  and 
card  readers.  The  NPS  configuration  has  four  display 
terminals  consisting  cf  a  tvo^writer-like  <eyboard  and  CKT 
diSDlay  device.  Each  terminal  displays  a  D  M  A  image  of  a  57b 
byte  terminal  buffer  located  in  RAM.  Keyboard  input  is 
accomplished  by  software  translation  of  a  keyboara  matrix 
code  into   the   corresponding   ASCII   character   code.    For 
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hardcopy  output  the  NPS  440  includes  a  Centronix  serial 
matrix  printer. 

Several  different  auxiliary  storage  aevices  may  be 
attached  to  the  Sycor  4  4  0  in  adaition  to  the  mini-disk. 
These  include  magnetic  taoe  drives,  cassette  tape  drives* 
ana  floppy  disk  drives.  The  NPS  configuration  includes  a 
cassette  taoe  anve  located  in  the  control  unit.  This  drive 
provides  compatibility  between  the  Sycor  440  system  and  the 
i^oael  340  deougaer. 

The  H  o  d  e  1  340  Communications  Terminal  is  a  complete 
system  in  its  Own  right  which  is  marketed  by  Sycor  for 
remote  job  entry  CKJE)  apolications  1101.  hhen  utilized  as  a 
hardware  debugger,  the  340  is  augmented  with  4K  of  PAN8  and  a 
backplane  couolina  to  a  soecial  wire-wrapped  interface  board 
in  the  440  control  unit.  The  340  debuager  is  provided  with 
a  software  package  which  includes  Drovisions  for  loading  and 
dumping  hex  format  program  files  between  cassette  tape  and 
440  RAM,  examination  and  modification  of  individual 
locations  in  440  memory,  inserting  breakpoints  and  traps  in 
orograms  executing  on  the  440,  and  s i ng 1 e-s t eDp i na  through  a 
program  executing  one  instruction  at  a  time  E12]. 

There  are  several  hardware  characteristics  of  the  Sycor 
440  system  which  strongly  influenced  the  implementation  of 
MTS.   The  most  important  of  these  are'. 

(1)  8080  CPU  architecture 

(2)  terminal  design 

(3J  mini -disk  interface 
(4)  single-state  CPU 
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(5)  lack  of  memory  crotection 
The  impact  which  each  characteristic  had  on  the   design   and 
implementation  of  MTS  is  covered  in  Ref.  1 . 
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C.   SYCOR  440/MTS  INTERFACE 

The  Microcomputer  limeshared  System  was  designed  and 
built  for  use  on  the  Sycor  440  Clustered  Terminal  Processing 
System.  For  this  reason  MTS  depends  heavily  on  specific 
features  of  the  Sycor  implementation  of  an  tsOSO  based 
m i c roorocesso r .  This  dependence  includes  reliance  on  Sycor 
supplied  software  as  well  as  the  440  hardware*  but  becomes 
most  aoparent  to  the  user  in  the  two  areas  of  loading  the 
system  and  maintaininc  system  files. 

1.   Loading  the  System 

The  MTS  object  module  resides  on  the  mini-disk  in  a 
relocatable  format  acceptable  to  the  Sycor  System  Loader. 
The  System  Loader  is  called  in  to  memory  Dy  setting  the 
internal  system  aefinition  switch  to  i  and  turninq  the 
ON/OFF/RESET  keylock  on  the  control  unit  to  the  RESET 
position.  After  MTS  is  loaded  execution  beqins  with  the 
initial  program  load  (IPL)  module.  The  query  RECOVER*? 
(Y/N)  is  displayed  at  terminal  0.  The  operator  should  enter 
Y  if  recovery  is  desired;  otherwise  N.  In  the  event  that 
the  IPl  ooerat ion  is  Hal  tea  aue  to  a  file  access  error  (file 
non-existent  or  cannot  be  read)  the  message  IPL  AbORTED 
followed  by  a  system  file  name  will  appear  at  terminal  0. 
After  correcting  the  problem  the  operator  may  reload  in  the 
normal  manner.  When  the  IPL  ABORTED  message  is  accompanied 
bv  the  HARDWARE  ERROR  terminal  alert  it  indicates  that  an 
abnormal  completion  code  was  returneo  by  the  mini-disk 
controller  after  a  read   operation.    Further   investigation 
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using  the  Svcor  utility  programs   FIXNAR   or   ..ZAP   may   be 
required  to  identify  the  problem  fill. 

To  summarize*  loading  ^TS  involves  the  following 
steps : 

(1)  set  internal  system  definition  switch  to  3 

(2)  turn  ON/OFF/RESFT  keylock  to  RESET 

(3)  wait  two  minutes  while  mini-disk  reacnes  operating 
soeed  and  all  red  lights  on  control  unit  status  oanel 
go  out 

(4)  respond  to  RECOVERY?  auerv  with  N  to  initialize  a  new 
system  or  Y  to  recover  from  the  last  operating 
sess  i  on . 

Loading  the  Sycor  operating  system  involves  the 
following  steos: 

(1J  set  internal  definition  switch  to  1 

(2)  turn  ON/OFF/RESET  *eyloc<  to  RESET 

(3)  wait  two  minutes  while  mini-disk  reaches  operating 
speed  and  all  red  lights  on  the  control  unit  status 
panel  go  out 

(4)  the  Sycor  operating  system  will  respona  with  the 
prompt  READY. 

2.   Recovery  File  -  .MTSRCVR 

MFS  supports  limited  recovery  after  a  user  task 
causes  a  system  crash.  The  recovery  feature  is  implemented 
by  copying  the*  contents  of  the  system  state  block  (SSB) 
after  each  swap  to  a  mini-disk  file  known  as  the  recovery 
file.  Since  the  SSB  defines  the  state  of  the    system   at   any 
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instant*  recovery  may  be  accomplished  by  reloading  the  SSB 
from  the  recovery  file*  deletinq  the  task  causing  the  crash, 
and  proceeding  with  normal  execution.  These  actions  are 
performed  by  the  M T S  IPL  module  when  the  answer  to  the 
RECOVERY?  query  is  Y. 

whenever  MTS  is  running,  a  double-sector  file  named 
.MTSRCVR  must  be  listed  in  the  mini-disk  directory.  in  trie 
event  this  file  is  deleted*  it  may  be  recreated  unaer  the 
Sycor  ooerating  system  by  using  the  command 

CREATE  .MTSRCVR  N=2 
The  contents  of  the  recovery  file  at  the  completion  of  an 
operating  session  are  only  meaningful  if  recoverv  will  oe 
requested  when  m  T  S  is  next  loaded.  Therefore*  under  normal 
circumstances  this  file  is  not  needed  when  VtTS  is  not 
runn  i  ng . 

3.   SwaD  Files  -  .MTSSwPx 

One  of  the  most  fundamental  requirements  on  any 
timesharing  system  is  maintaining  independence  of  user  tastes 
executing  concurrently.  MTS  satisfies  tnis  reauirement  ov 
maintaining  physical  as  well  as  logical  separation  of  all 
user  tasks  in  the  system.  Associated  with  each  of  the  four 
terminal  tasks  is  a  mini-disk  file  used  to  store  a  core- 
image  of  the  task  when  it  is  waitinq  for  the  CPU  or  blocked 
pending  some  I/O  operation.  At  any  given  insfant  a  task  mav 
reside  on  the  oisk  in  its  swao  file  or  in  memory*  but  at  no 
time  can  two  or  more  tasks  reside  in  memory  simultaneously. 

A  task's  swao  imaae  consists  of  17  bytes  reserved  dv 
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MTS  for  environment  and  virtual  device  control  data  followed 
by  up  to  48*896  bytes  of  user  task  memory  image.  Thus*  the 
maximum  allowable  swao  image  is  approximately  48K  bytes. 
There  is  no  minimum  value  for  the  size  of  a  swap  image.  The 
swao  image  size  or*  ecuivalently*  the  amount  of  memory  space 
available  to  the  user  is  variable  from  0  to  48K.  In  fact/ 
the  user  is  encouraqea  to  use  the  smallest  swap  image  which 
satisfies  his  requirements  as  smaller  swap  imaaes  tena  to 
improve  system  responsiveness. 

A  4  8  K  swao  image  will  fill  9  b  sectors  on  the  m  i  n  i  - 
aisk.  Therefore  each  of  the  four  swao  files  shoula  normally 
be  9b  sectors  lona.  In  the  event  that  mini-disk  space  is 
limited*  or  that  user  tas<s  do  not  requre  a  4  6  K  swap  i  ^  a  q  e  * 
MTS  will  automatically  adjust  to  any  *i1e  size  greater  than 
16K  (32  sectors).  Sixteen  kilobytes  was  selecteo  as  the 
minimum  and  default  system  size  since  it  provides  a 
reasonable  amount  of  memory  for  running  the  CP/M  operat  inq 
system.  The  IPL  module  performs  a  size  test  on  each  swao 
file  to  ensure  that  it  is  at  least  32  sectors  lonq.  MTS 
cannot  be  loaded  if  any  swao  file  is  smaller  than  32 
sec  t ors . 

If  it  oecomes  necessary  to  chanqe  the  size  of  any  or 
all  swap  files*  the  file(s)  must  first  be  aeletea  from  the 
mini-disk  directory.  This  is  accomol  i  shed  under  the  Sycor 
ooerating  svstem  using  the  command 

DELE  TE  <f  i  1 enamc> 
where  <filename>  may  he   .MTSSrtPO,   .MTSSWP1,   .MTSSWP2,   or 
.MTSSWP3.   The   number   in   each  case  indicates  the  terminal 
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with  which  the  file  is  associated.   After  the  file  has   been 
deleted*  it  may  be  recreated  by  using  the  command 

CPEATE  <filename>  N=96 
for  each  file  which  has  been  deleted.   If  swao  files  smaller 
than   4  8  K   are  desired/  the  value  of  N  in  the  CRtAlE  command 
string  should  be  two  times   the   required   memory   space   in 
kilobytes*  but  no  less  than  32. 

The  contents  of  the  swao  files  upon  completion  of  an 
MTS  operating  session  are  only  meaningful  if  recovery  will 
be  reguestea  when  VTS  is  next  loaded.  Under  normal 
circumstances  these  four  files  are  not  required  when  MTS  is 
not  runn  i  ng . 

4.   Conf iaurat i on  File  -  .MTSCNFG 

As  explained  in  section  A.2.C/  MTS  identifies 
virtual  floopy  disKS  by  a  logical  disk  number  ranging  from  0 
to  31.  Since  each  virtual  flopDy  disk  actually  resides  in  a 
mini-disk  file  created  under  the  Sycor  operating  system/ 
there  must  be  some  mechanism  for  mapping  a  logical  disk 
number  into  a  filename  contained  in  the  mini-dis*  directory. 
This  function  is  performed  by  the  configuration  file 
.MTSCNFG. 

The  configuration  file  is  made  up  of  32  entries  of 
thirteen  bytes  each  contained  on  a  single  mini-disk  sector. 
Each  entry  has  the  format 
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;    FILENAME    !   KEY   J  P  A  | 
0  7  8       1112 

where  FILENAME  is  the  0  to  8  byte  name  of  the  virtual  floppy 
disk  file  as  it  aopears  in  the  mini-disk  directory;  KEY  is  a 
0  to  4  byte  protection  kev»  PA  is  the  protection  attribute 
of  the  virtual  d  i  s  k  ,  i.e.  ' P '  for  read/write  protection,  '  R  ' 
for  write  protection  only  (restricted  access)/  and  blank  for 
no  protection.  The  loaical  disk  number  for  each  entry  is 
simply  the  position  of  that  entrv  within  the  file.  For 
example,  the  first  entry  is  assigned  logical  disk  numoer  0* 
the  last  entry  31,  anc  the  entrv  which  is  preceded  Dy  17 
other  entries  oecomes  number  17. 

The  configuration  file  is  read  Dy  MTS  during  tne 
initialization  process  performed  Dy  the  1PL  moaule.  Tne 
filename  is  extracted  from  each  entry  and  input  to  a  routine 
which  searches  the  mini-aisk  directory.  ,v  h  e  n  a  match  occurs 
the  mini-aisk  address  for  the  file  is  read  from  the 
a i rectory  and  entered  in  a  virtual  floppy  disk  map  table. 
If  no  match  occurs  for  a  given  configuration  file  entry,  the 
corresponding  logical  disk  number  is  marked  not  availaole. 
Any  suosequent  attempt  to  access  that  virtual  disk  will 
result  in  the  terminal  alert  DISK  NOT  AVAIL  ( E .  3 ) . 

Since  the  information  contained  in  the  configuration 
file  is  of  a  permanent  nature  and  can  only  be  recreated  with 
great  difficulty,  the  file  .MTSCNFG  should  never  be  deleted 
from  the  mini-disk  file  directory.  in  the  event  the  file  is 
deleted  erroneously,  a  new  file  may   be   created   under   the 
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Sycor  operating  system  using  the  CREATE  ana  BATCH  commands 
and  a  backup  cassette  labeled  ".MTSCNFG".  The  commands  are 
entered  as 

CREATE  .MTSCNFG  N=l 
RUM  BATCH  1=/CSST  3=. MTSCNFG 
with  .MTSCNFG  mounted  in  the  cassette  drive.   These  commands 
will   build   a   new   file   directory   entry  for  .MTSCNFG  and 
estaolish  a  basic  con f i ou ra t i on  file  with  32  entries  of   the 
form  .DISKx*  where  x  ranges  from  0  to  31. 

The  configuration  file  may  be  modified  by  two 
met  hods . 

First*  immediately  after  the  Oasic  configuration 
file  has  been  created  and  loaded  it  may  De  mortified  when 
running  under  the  Syccr  ooerating  system.  Sycor  orovides  a 
data  entry  free  form  mode  which  allows  the  terminal  operator 
to  examine  and  modify  the  contents  of  the  file  fill. 
Extreme  care  must  be  exercised  when  uooating  .MTSCNFG  to 
alian  each  entry  Droperly  in  the  file.  NTS  assumes  the  file 
will  be  in  the  proper  format  when  read*  and  makes  no  attempt 
to  validate  individual  entries.  Note  that  this  method  may 
only  be  used  after  the  configuration  file  has  been  loaded 
and  prior  to  runnino  VTS.  Once  M T S  has  been  executed  the 
next  method  must  be  used. 

lhe  configuration  file  mav  be  modified  utilizina  trie 
MTS  commands  Protect*  Restrict*  and  Unprotect.  These 
commands  form  the  most  common  method  for  modification  of 
virtual  disk  protection  attributes.  Protect*  Restrict*  and 
Unprotect  are  detailed  in  section  0.6. 
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5.   Printer  File  -  .MTSPRT 

MTS  supports  the  use  of  the  Centronix  serial  matrix 
printer.  The  printer  feature  is  implemented  by  buffering 
characters  in  memory  until  the  512  byte  orinter  buffer  is 
full.  Next  the  buffer  is  written  to  the  mini -disk  file 
.MTSPRT  and  the  buffering  oDeration  is  restarted.  When  the 
eng  of  file  character  is  received*  any  data  in  the  buffer  is 
copied  to  .MTSPRT.  Finally,  the  file  is  read  into  memory 
and  output  to  the  printer  und^r  interupt  control. 

In  the  event  that  .MTSPRT  is  deleted/  it  may  be 
recreated  under  the  Sycor  operating  system  oy  usina  the 
command 

CREATE  .MTSPRT  M  =  <  f  i  1 e  size> 
rfhere  <file  size>  is  the  length  of  the  file  in  512  byte 
mini-dis*  sectors.  Because  all  information  is  written  to 
the  printer  file  before  it  is  orinted,  tne  user  must  insure 
that  the  file  size  is  large  enough  to  hanale  the  worst  case 
situation.  If  the  user  discovers  the  printer  file  size  must 
be  increased/  the  Sycor  ooerating  system  commands 

DELETE  .MTSPRT 

CREATE  .MTSPRT  N=<file  size> 
may  be  used. 

o.   Virtual  Floopy  D  i  s  k  Files 

Each  virtual  floppy  disx  resides  on  a  block  of 
logically  contiguous  mini-disk  sectors.  This  block  must  be 
allocated  using  the  facilities  oroviaed  by  the  Sycor 
ooerating  system,  soecifically  the  command 
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CREATE  <filename>  N  =  < file  size> 
where  <filename>  is  a  I  to  8  character  name  to  be  entered  in 
the  mini-disk  directory  and  configuration  file,  and  <file 
size>  is  the  length  of  the  file  in  512  byte  mini-disk 
sectors.  For  the  basic  configuration  file  described  above 
the  <filename>  is  of  the  form  .diskx  where  x  ranges  from  0 
to  51.  For  the  standard  256K  byte  floppy  disk  <file  size> 
eauals  512,  i.e.  (256  *  1  02U ) /5 1 2  =  5 1 2 . 

where  a  physical  f 1 opoy  disk  has  a  'ixed  capacity  of 
256K  bytes,  an  MTS  virtual  disk  may  have  anv  convenient  size 
up  to  25oK  bytes.  MTS  assumes  that  the  aisk  image  is  made 
up  of  contiguous  128  byte  floppy  disk  sectors  starting  with 
track  0  sector  1/  oroceeding  through  the  2b  sectors  of  track 
0  to  track  1  sector  1>  and  so  on  until  track  7o  sector  2o  or 
until  the  virtual  disk  file  is  full.  If  the  virtual  disk 
file  size  is  less  than  512  mini-disk  sectors/  less  than  77 
floppy  disk  tracks  will  De  addressable. 

It  is  important  to  note  that  MTS  only  recognizes 
virtual  floppv  disk  files  which  are  entered  in  the 
configuration  file.  The  loaical  disk  number  associated  with 
a  given  virtual  floppy  disk  file  is  determined  by  that  files 
position  in  .MTSCNFG.  When  the  file  is  initially  entered  in 
the  configuration  file  a  protection  key  and  protection 
attribute  may  also  be  entered. 
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D.   MTS/USER  TERMINAL  INTERFACE 

1.   Terminal  Interface  Design 

The  general  format  of  each  terminal   displav   is   as 
f o 1 1 ows : 
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STATUS  LINE 
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The  numbers  are       decimal   and   specify   character   oositions 
within  the  status  line  and  display  buffer. 

a.   Status  Line 

The  terminal  status   line   is   used   by   M  T  S   to 
display  three  types  of  status  information: 

(1)  The  current  virtual  drive  and  floppy  disk   assianments 

for  that  terminal. 
(2}  The  size  of  the  user's  swap  i  m  a  a  e  >  i.e.  the  amount   of 

memory  soace  currently  available. 
(3)  Error  message  alerts  croduced  by  MTS  system   commands* 
or   resulting   from   user  proaram  calls  on  the  DISPLAY 
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MSG  service  routine  (see  F.2.). 

The  status  line  disday  format  and  contents  are 
discussed  in  detail  in  section  E. 

0  .   Di  so  1  ay  Buffer 

The  disolay  buffer  can  hold  uo  to  a  maximum  of 
512  characters.  Tne  disolay  buffer  also  acts  as  an  input 
buffer,  holding  the  input  data  until  the  user's  Drogram 
requests  it.  Due  to  the  unavoidable  delays  in  user  program 
response  caused  by  swapping  and  aggravated  by  the  relatively 
low  data  transfer  rate  of  the  mini-disk,  the  M T S  terminal 
interface  provides  character  echoing  and  simple  line  editing 
features.  This  ensures  reasonaole  response  times  to  key 
activation  by  the  user.  Thus,  inout  aata  can  not  be 
considered  available  to  the  user's  prooram  until  an  inout 
line  termination  character  has  been  received  by  MIS.  To 
estaolish  an  input  buffer  for  a  program/  the  user  enters  the 
data  and  terminates  the  line  by  hitting  the  N E W L I N E  or  ENTER 
keys  on  the  keyboard.  This  establishes  that  line  as  an 
input  buffer  available  for  orocessing  ov  the  user's  program. 
when  N  E  w  L  I N  E  is  entered  MTS  issues  a  carriage  return  and 
line  feed  to  the  terminal  screen.  ENTER  causes  termination 
of  the  current  line  but  MTS  does  not  output  a  carriage 
return  and  line  feed  to  the  terminal  screen.  ENTER  is  most 
effective  when  C  P  /  M  commands  are  entered  because  more 
information  can  be  oresented  on  the  MTS  terminal.  Note  that 
the  key  combinations  'I/O  CTL  M1  or  'SHIFT  CR'  (on  the 
number  pad)  will  also  result  in  the  termination  of  an   input 
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line.  Either  of  these  keys,  as  well  as  N  E  w  L  I N  t  and  ENTER/ 
may  be  used  for  line  termination. 

Once  an  inDut  buffer  has  been  established  the 
user  may  continue  to  input  data  on  the  next  line.  The  user 
may  use  any  of  the  line  editing  or  other  cursor  control 
features  on  this  new  line  of  input  data.  However,  this  new 
line  may  not  be  terminated  until  the  user's  proqram  has 
processed  the  previous  input  buffer  (see  terminal  alerts 
below). 

Each  character  output  from  the  user's  proqram  is 
displayed  at  the  current  cursor  position.  Each  output 
results  in  all  input  buffer  oointers  being  reset  to  the 
character  position  at  the  end  of  the  output  data.  Thus,  new 
I/O  will  start  at  this  point.  This  implies  that  if  the  user 
had  been  in  the  middle  of  entering  oata  when  the  output 
occurred,  it  must  be  reentered. 

c.   Terminal  Alerts 

The  MTS  terminal  interface  orovides  the  user 
with  either  a  visual  or  audio  response  to  each  key 
depression.  Normal  visual  response  is  provided  by  display 
of  the  entered  character  and/or  movement  of  the  display 
cursor.  The  display  cursor  is  a  blinking  underscore 
character  which  marks  the  current  position  on  the  screen. 
Data  is  always  entereo  and  displayed  at  the  current  cursor 
pos  i  t  i  on . 

The  audio  responses  consist  of  either  a  oeeo  or 
cHck   at   the   terminal.   A   terminal   beep   alert   will  be 
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generated  for  any  of  the  following  conditions: 

(1)  An  incut  buffer  is  waiting  to  oe  processed  by  the 
user's  program  and  the  terminal  user  attempts  to 
terminate  a  new  input  line. 

( 2 )  An  attempt  is  made  to  move  the  cursor  back  past  the 
start  of  the  current  line.  For  example*  attempting  to 
delete  the  Drevious  line  or  character  after  the  line 
has  Deen  entereo  by  a  termination  <ey  will  result  in  a 
beeo . 

The  terminal  click  alert  is  associated  with  the 
display  scrolling  feature.  Since  the  display  buffer  also 
acts  as  an  inout  buffer*  scrollino  the  display  when  the  512 
byte  display  buffer  is  full  could  destroy  input  data  wnich 
has  not  yet  been  Drocessed.  ^or  examole*  the  user  could  oe 
entering  a  512  character  string.  Uoon  termination  of  that 
input  line*  MTS  will  lock  out  scrolling  until  the  user's 
program  has  orocessec  the  first  64  characters.  This  ensures 
that  the  inout  data  is  not  destroyed  by  the  scrolling 
operation.  This  scrolling  lockout  is  indicated  to  the  user 
by  a  terminal  clic*  alert. 

2.   Terminal  Kev  Functions 

The  terminal  keys  fall  into  five  basic  functional 
grouos:  keys  for  entry  of  normal  character  strings;  keys 
whicn  affect  the  interpretation  of  the  inout  kev  character? 
input  line  termination  keys?  line  editing  and  cursor  control 
keys;  and  number  pad  keys.  These  keys  and  their  functions 
are       described   in   the   following   subsections.   within  the 
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function  desc r i p t i ons t  "current  position"  refers  to  the 
current  cursor  position  on  the  screen.  Any  reference  to  the 
Display  of  a  character  in  the  current  position,  also  implies 
that  the  current  position  is  incremented  by  one. 

a.   Character  String  Keys 


KEY/SWITCH 


FUNCTION 


0-9 


Displays  the  input  numeric 
character  at  the  current 
position  on  the  screen. 


Spec  i  a  1 
Charac  ters 


Disolays  the  inout  special 
character  at  the  current   cursor 
position  on  the  screen. 


A-Z 


Displays  the  input  alphabetic 
characters  at  the  current 
position  on  the  screen. 
Alphabetic  characters  are 
disDlayeO  in  upper  or  lower  case 
depending  on  the  kev  mode  (see 
SHIFT  and  FS  C  under  Entry  Mode 
Keys)  . 


TaO/Sk  i  o 


Disolays  a  (hori  zonal  )  tab  sym- 
bol at  the  current  position  on 
the  sc  reen . 
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b.   Entry  Mode  Keys 


KEY/SWITCH 


FUNCTION 


FUNCTION 

SELECT(FS) 


Defines  the  i nt eroret at i on  of 
keys  for   soecial   functions   as 
defined  in  this  section. 


I/O  CONTROL 
(I/O  CTL) 


Defines  the  i nt eroret at i on  of 
<eys  for  soecial  functions  as 
defined  in  this  section.  Also 
used  in  conjunction  with  the 
alphabetic  keys  to  generate 
aoprooriate  ASCII  control  cooes. 


SHIFT 


Sets  the  kevboara   to   upoer   or 


ower  case 


FS   C 


Sets  or  clears  the  alphabetic 
key  entry  mode  to  upper  or  lower 
case.  Functions  as  a  shift  key 
lock. 


SHIFT  RS 

(RESTART) 


Causes  a  RST  7  instruction  to  oe 
executed  which  transfers  control 
to  memory  location  4038H.  [his 
k*y  is  used  with  the  CP/M  DDT 
program . 
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c.   Line  Termination  Keys 


KEY/SWITCH 


FUNCTION 


NEW  LIME;  enter; 
I/O  CTL  m; 
SHIFT  CP; 


Terminates  the  current  line  ana 
establishes  the  just  completed 
input  line  as  an  input  buffer 
available  for  processing  bv  the 
user's  program.  The  cursor  is 
displayed  at  the  left  most 
position  of  the  next  line  except 
for  ENTER  *  h  i  c  h  leaves  tne 
cursor  at  the  current  position. 


ERROR  RESET 
(MTS  CMD) 


Specifies  that  tne  inout  line 
which  it   terminates   is   to   oe 
processed   by   M  I  S   as   a  system 
command. 


d.   Line  Editing  and  Cursor  Control  Keys 


KEY/SWITCH 


FUNCTION 


NEXT  fmat; 
I/O  CTL  U 
(Line  Delete) 


Deletes  all  characters  from  the 
current  position  back  to  the 
start  of  the  current  line. 


BACK  SPACE 
(Char  Del ete) 


Deletes  the  previously  entered 
character. 


FS  S  or  I/OCTL  $     Clears  the  displav  buffer  (not 


5c? 


(Clear  Sc  reen ) 


the  status  line)  and  leaves  the 
current  Dosition  at  the  upoer 
left  position  of  the  display 
buffer. 


--->(Cursor  Right) 


<---  (Cursor  Left)   Moves  the  current   position   one 

to  the  left.  Does  not  delete 
previous  entry/  but  allows 
reen t  ry  . 

Moves  the  current  Dosition  one 
to  the  right,  Ooes  not  delete 
previous  entry,  out  allows 
reen t  ry  . 

e.   Number  Pad  Keys 

The  number  pad  keys  consist  of  10  numeric  digits 
and  8  ASCII  control  characters  located  on  tne  right  side  of 
the  keyboard.  The  digits  function  in  the  same  manner  as  the 
other  numeric  digits  on  the  Keyboard.  The  ASCII  control 
characters  are  disolayed  when  the  SHIFT  key  is  depressed  in 
conjunction  witn  the  aoprooriate  kev.  The  only  control 
characters  which  affect  the  aisolay  are  SHIFT  CR  and  SHIFT 
RS  (see  Line  Termination  Keys). 

3.   MTS  System  Commands 

System  commancs  are  a  set  of  commands  which  provide 
the  user  with  a  means  of  c ommun i ca t i na  witn  MTS  from  the 
terminal.  These  commands  allow  the  user  to  login  to  MTS? 
guit   MTS;   attach   virtual  f 1 oopy  disks;  protect*  restrict, 
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and  unprotect  virtual  floppy  disks?  and  specify  the   virtual 
memory  size  to  be  used. 

a.   General  Characteristics 

A  MTS  command  sequence  may  be  entered  anytime 
after  the  initialization  or  reinitialization  of  MTS.  The 
user*  enters  the  desired  command  sequence/  followea  by  the 
ERROR  RESET  key.  This  siqnals  the  operatinq  system  that 
there  is  an  MTS  command  to  be  processea.  Apv  errors 
detected  in  the  command  sequence  will  result  in  an  error 
alert  messaoe  displayed  in  the  MTS  message  fiela  on  the 
status  line.  Section  E  describes  the  MTS  status  line 
display  and  provides  a  summary  of  the  error  rressaoes. 


b .   Synt  ax  Rules 

The  following  rules  should  be  used  to   interpret 
the  syntax  for  each  svstem  command  qiven  in  section  D.3.e. 
(1)  The  command  may  be  entered  in   upper   or   lower   case. 
MTS    converts    the    commands    to   upper   case   for 
process  i  ng . 
(.  d )    Each  entry  in  the  command  sequence  must   be   separated 
by  one  or  more  spaces. 

(3)  The  entire  command  name  may  De  used  to  specify  the 
commana.  however  onlv  the  first  letter  of  the  command 
is  required*  as  indicated  by  the  underscore  in  the 
syntax.  MTS  validates  only  the  first  letter  of  the 
c ommand  name. 

(4)  Parameters  are  shown  in  lower  case  and  enclosed  by 
inequality   signs   (<   >).   Each   parameter   name  is  a 
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variable  which  must  be  replaced  bv  the  appropriate 
character  string  or  decimal  number  entered  by  the 
user . 

(5)  Parameters  may  be  required  or  optional,  depending  on 
the  command.  Cptional  parameters  are  soecified  by 
enclosing  the  parameter  in  brackets  (  I  ]).  If  a 
oarameter  is  designated  as  optional,  it  may  be  omitted 
from  the  commanc  seauence  (see  section  D.3.d). 

(6)  The  designation  [  <  d  i  s  k  nr>  I  /  <  k  e  y  >  U  indicates  that 
the  entire  oarameter*  sequence  is  optional,  and  that 
<disk  nr>  may  acoear  without  /<key>.  The  converse, 
however,  is  not  true. 

(/)  If  oarameters  are  entered  in  a  command  sequence  they 
must  be  in  the  order  specified  in  the  syntax.  For 
example,  <disk  nr>  may  not  be  entered  before  <drive 
1  t  r>. 

(8)  The  notation  (error  reset)  at  the  end  of  each  command 
strino  is  a  reminder  to  the  user  that  each  MTS  command 
sequence  must  be  terminated  Dv  the  ERRuR  RtSET  kev. 

c.   Parameter  Definitions 

The   system   commands    have    four    types    of 
paramet  e  rs : 

(1)  <drive  ltr>  -  must  be  one  of  the  alohabetic  characters 

A   through   H.   It   specifies  one  of  the  eiqht  virtual 

disk  drives  available  to  a  terminal  user. 

( I )     <disk  nr>  -  must  be  a   decimal   number   in   the   range 

0-31.    It   soecifies   one   of  up  to  3  <2  virtual  floppy 
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disk  files  on  the  Svcor  mini-disk. 

(3)  /<key>  -  a  string  of  not  more  than  four  characters* 
always  precedec  by  the  special  character  '/'  which 
designates  the  string  as  a  key  parameter.  All  valid 
ASCII  characters  are  acceotable  including  olan**  slash 
(/)*  and  other  special  characters. 

(4)  <memory  size>  -  must  be  a  decimal  value  in  the  range  0 
to  48,  which  specifies  the  user's  swaD  image  size  in 
kilobytes.  The  default  value  for  a  user  swap  image  is 
16K. 

d.   Default  Parameter  Values 

Certain  system  commands  allow  the  user  to  omit 
the  <drive  ltr>  anc/or  <disk  nr>  oarameters.  In  these 
cases*  MTS  determines  the  aoproDriate  drive  letter  and  aisk 
number  by  scanning  its  allocation  tables  for  the  first 
available  virtual  drive  or  virtual  disk*  as  appropriate.  If 
one  is  found*  it  is  allocated  to  the  requesting  user. 
Otherwise  the  aoprooriate  error  messaae  is  displayed. 

The  <key>  parameter  is  optional  only  if  the  disk 
requested  has  no  orotection  attributes  specified.  Thus  there 
is  no  default  <key>  value.  &s  oreviously  mentioned*  the 
default  <memory  size>  parameter  is  lbK. 
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e.   Commana  Descriptions 

The  following  pages  descrioe  in  detail 
the  system  commands: 

(1)  ATTACH 

(2)  LOGIN 
(i)   PROTECT 
(a)   QUIT 

(5)  RESTRICT 

(6)  SIZE 

(7)  UNPROTECT 


each   of 
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SYSTEM  COMMAND 


ATTACH 


Func  t  i  on  : 


To  attach  a  virtual  f 1 oopv  disk  to  a  virtual  disk   drive 
for  use  by  a  user  at  a  specific  terminal. 


Synt  ax  : 

ATTACH  [<drive  ltr>l   f<disk  nr>  L/<key>l]  (error  reset) 


Oescript  ion: 

This  system  command  simulates  the  physical  operation  of 
loading  virtual  disk  <  d  i  s  k  nr>  into  virtual  arive  <drive 
ltr>.  All  parameters  are  o  o  t  i  o  n  a  1  ,  section  D  .  3  .  d 
descrioes  the  aefault  values  when  optional  parameters 
are  omitted. 


Error  Messages: 

DRIVE  NOT  AVAIL 

DISK  NR  ERROR 
DISK  IN  USE 

DRIVE  LTR  ERROR 
DISK  NOT  AVAIL 


INVALID  CMD 
KEY  ERROR 


Drive  letter  has  not  been 

SDecified  ana  there  is  no  arive 

presently  available  for  assignment. 

Disk  number  entered  is  greater 

t  han  3  1  . 

Disk  number  soeci  f iea  is  oresently 

allocated  with  read/write  access  to 

anot her  user. 

Drive  letter  entered  is  not  one  of  the 

letters  A  through  H. 

Either  disk  number  Has  not  been 

soecified  ana  there  is  no  aisk 

presently  availaole  for  assignment;  or 

the  soecified  aisk  is  not 

available  for  assignment. 

Syntax  error  in  commana  sequence. 

The  soecified  aisk  reauires  a  key 

and  either  a  key  has  not  been  enterea 

or  the  enterea  key  did  not  match. 


Examp 1 es  : 


ATTACH  A  3  /USR1 

A  C 

attach  5  /vd« 1 
a   1 
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SYSFEM  COMMAND 


LOGIN 


Funct i  on  : 


Links  the  terminal  user  to  MTS  and  provides  the  initial 
load  of  the  user's  program  or  operating  system  (default 
system  i  s  CP/M) . 


Synt  ax  : 

LOGIN  [<disk  nr>  t/<key>ll  (error  reset) 


Desc  ri  pt  i  on  : 

This  system  command  notifies  MTS  that  the  requesting 
terminal  is  now  active*  and  simulates  the  physical 
cold-start  bootstrap  operation  of  the  user's  system. 
The  bootstrap  load  always  takes  place  from  virtual  drive 
A.  The  virtual  disk  (and  associated  key/  if  any) 
attached  to  this  arive  may  be  specified  as  a  parameter. 
The  default  is  disk  nr  0/  which  is  a  read  only  dis<  and 
always  contains  the  CP/M  operating  system. 


Error  Messages: 

DISK  NR  ERROR 
DISK  IN  USE 

DISK  NOT  AVAIL 
HARDWARE  ERROR 


INVALID  CMD 
KEY  ERROR 


Disk  numoer  entered  is  greater 

than  31  . 

Disk  number  specified  is  presently 

allocated  with  read/write  access  to 

anot her  user. 

The  specified  disk  is  not  available 

for  assignment. 

Abnormal  completion  status  was 

returned  by  the  mini-disk  controller 

following  a  write  ooeration. 

Syntax  error  in  command  sequence. 

The  soecified  disk  requires  a  key 

and  either  a  key  has  not  been  entered 

of  the  entered  key  did  not-  match. 


Examp 1 es  : 


LOGIN  3  /Dl 

L   15 

login  25  /a?5 

1 
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SYSTEM  COMMAND 


PROTECT 


Func t  i  on : 


Adds   the   read/write   protection 
specified  virtual  disk. 


attribute 


to    the 


Synt  ax  : 

PROTECT  <disK  nr>  /<*ey>  (error  reset) 

Oesc  r  i  pt  i  on  : 

This  system  comnnana  provides  the  user  with  the  means  for 
on-line  assignment  of  a  protection  <key>  to  <disk  nr>. 


Error  Messages: 

DISK  NR  ERROR 

HARDWARE  ERROR 

INVALID  CMD 
KEY  ERROR 


-  Disk  number  entered  is  areater 
than  31  . 

-  Abnormal  completion  status  was 
returned  by  the  mini-disk  controller 
following  a  read  or  write  operation. 

-  Syntax  error  in  command  sequence. 

-  The  specified  disk  is  already 
protected.   To  change  protection  keys 
use  UNPROTECT  with  current  key  and 
then  PROTFCT  with  new  key. 


Examp 1 es  : 


PROTECT  1  /VFD5 
prot ec  t  10  /key  1 
o  2  /utt?Q 
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SYSTEM  COMMAND 


QUIT 


Func  t  i  on  : 

Terminates  the  terminal  user's  link  to  MTS 

Synt  ax  : 

QUIT  (error  reset  ) 


Description: 

This  system  command  notifies   MTS 
terminal  is  no  longer  active. 


that   tne   requesting 


Error  Messaqes: 

HARDWARE  EPRUR 


INVALID  CMD 


-  Abnormal  comoletion  status  was 
returned  by  the  mini-disk  controller 
following  a  write  operation.   This  may 
indicate  that  the  last  virtual  d  i  s  >c 
written  to  was  not  closed  prooerly  and 
data  has  been  lost. 

-  Svntax  error  in  command  sequence. 


ExamD 1 es  : 

QUIT 
qu  i  t 

Q 

q 
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SYSTEM  COMMAND 


RESTRICT 


Func  t  i  on : 


Adds  the  read  restriction   attribute   to 
virtual  disk. 


t  he   spec  i  f  i  ed 


Syntax : 

RESTRICT  <aisk  nr>  /<kev>  (error  reset) 

Description: 

This  system  c  o  m  m  a  n  a  provides  the  user  with  the  means  for 
on-line  assignment  of  a  "read  only"  restriction  to  <aisk 
nr>.  This  allows  the  user  to  soecify  a  virtual  floppy 
disk  as  available  to  other  users  for  read  only  access. 
The  virtual  floopv  distc  must  have  oeen  protected  prior 
to  issuing  the  restrict  command.  The  <key>  is  the  same 
as  the  <key>  usea  in  the  orotect  command. 


Error  Messages: 

DISK  NR  ERROR 

DISK  IN  USE 

INVALID  CMD 
KEY  ERROR 


-  Disk  nu^oer  entered  is  greated 
than  3  1  . 

-  Disk  number  soecified  is  presently 
allocated  with  read/write  access  to 
another  user. 

-  Syntax  error  in  command  sequence. 

-  The  specified  aisk  reauires  a  <ey 
and  either  a  key  has  not  been  entered 
or  the  entered  key  did  not  match. 


Examp 1 es  : 


RESTRICT  3  /ID  1 
R   4   /  ID4 
rest  rict  13  /us  r3 
r  16  /l 
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SYSFEM  COMMAND 


SIZE 


Func t i  on  : 


Specifies   the   memory   size   to   De   allocated   to   the 
terminal  user. 


Synt  ax  : 

SIZE  <memory  si  ze>  (error  reset) 


Desc  r  i  pt  i  on : 

This  system  command  sets  the  size   of 

image.   The  range  of  values  is  0-48K. 

after  login  is  loK. 


the   user's   swao 
The  default  value 


Error  Messages  : 
INVALID  CMD 


-  Syntax  error  in  commang  sequence  or 
the  size  parameter  entered  does 
not  fall  in  the  range  of  0-^o; 
or  the  Sycor  ^40  swap  file  is  not 
large  enough  to  held  this  size 
swap  image  (see  section  C.3). 


E xamp 1 es  : 


SIZE  24 
S  32 
size    48 
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SYSTEM  COMMAND 


UiSiPROTECT 


Func t  i  on  : 


To  remove  a  previously  entered  Drotect ion  key 
specified  virtual  floppy  disk. 


f  rom   the 


Synt  ax  : 

UNPRQTECT  <disk  nr>  /<key>  (error  reset) 

Desc  r  i  pt i on : 

This  system  command  provides  the  user  with  the  means  for 
on-line   removal  of  all  protection  attrioutes  form  <aisk 

nr>. 


Error  Messages: 

uISK  NR  ERROR 

HARDWARE  ERROR 

INVALID  CMD 
KEY  ERROR 


-  Disk  number  entered  is  greater 
t  Kan  31  . 

-  Abnormal  completion  status  was 
returned  by  the  mini-disk  controller 
following  a  read  or  write  operation. 

-  Syntax  error  in  command  sequence. 

-  A  protection  kev  is  required  and 
either  no  key  was  entered/  or 
the  entered  key  did  not  matcn. 


Examp 1 es  : 


UNPROTECT     18     /NR    9 
U       12       /0<?toa 
unprot ec  t     7    /Ov  f d 
u       9       /  0  ?  I '/. 
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E.   MTS  STATUS  LINE  MESSAGES 

The  MTS  operating  system  utilizes  the  first  line  of  each 

terminal   for  system  status  and  error  message  displays.  The 

status  line  is  64  characters  in  length  and  is   divided  into 
three  disolay  areas  as  shown  below. 

STATUS  LIME 


39  no  47  48 
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V  F  C 


M  S 


M  S  G 


where 

VrO 

MS 

MSG 


Virtual  FIodpv  Disk  Status  Display 
Memory  Size  Disolay 
Error  Message  Disolay 


1.   Virtual  Floopv  Disk  Status  Display 

This  display  contains   information   on   the   virtual 
drive   and   disk   assignments  currently  in  effect.   For  each 
attached   virtual   floppy   disk   the    following    will    be 
i  sp 1 ayed: 
( 1 )  drive  letter 
(  2. )  disk  numbe  r 

(3)  restriction  indicator  (r  or  blank) 
For  example*  if  the  user  has  attached  aisk  number  5  to  drive 
A   and   disk  number  £5  (which  is  restricted)  to  drive  Z,     the 
status  display  would  appear  as  follows: 
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!A  =  03 


10 


C  =  25r 


39 


i.       Memory  Size  Display 

The  center  of  the  status  line  display  shows  the 
current  memory  size  for  that  user  ana  the  " M T S N  header.  For 
example*  if  the  svstem  default  memory  size  were  Deing  used* 
the  disolay  woula  aDpear  as  follows: 

40      47 
16K  MTS 


3.   Error  Message  Disolay 

All  MTS  system  commands  are  validatea  ana  an  error 
alert  generated  if  anv  syntax  errors  are  found.  Tne  last  16 
positions  of  the  status  line  are  reservea  for  tnese 
messages.  A  valid  system  commana  will  clear  the  error 
message  disolay  of  any  orevious  error  alert.  The  followina 
is  a  summary  of  system  error  messages. 


MESSAGE 


MEANING 


(Blank  Display)    Initial  condition;  also  the  status  message 

area       is   clearea  following  the  processing 
of  a    valid  system  command. 

DISK  IN  USE        Disk  numoer  SDecifiea  is   presently   alio- 

catea   with   read/write   access  to  another 
user. 
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DISK  NUT  AVAIL 


DISK  NR  ERROR 


Either  the  disk  number  has  not  been  speci- 
fied and  there  is  no  disk  oresently 
avai laole  for  assignment;  or  specified 
disk  number  is  not  available  for 
ass  i  gnmen t  . 

Disk  numoer  entered  is  greater  than  31. 


DRIVE  LTR  ERROR    Drive  number  entered  is   not   one   of   the 

letters  A  th  rouah  H . 

DRIVE  NOT  AVAIL    Drive  letter  has  not   been   specifiea   and 

there   is  no  drive  presently  available  for 
ass  i  gnment  . 

hARD^ARE  ERROR     Abnormal  completion  status  was  returnee  Dy 

the   mini-disk  controller  following  a  read 
or  write  operation. 


INVALID  CMD 


KEY  ERROR 


PRINTER  NOT  ROY 


Syntax  error  has  been  detectea  in  the 
commana  sequence. 

The  specified  disk  requires  a  <ey  and 
either  a  key  has  not  been  entered  or  trie 
entered  key  did  not  match. 

Abnormal  completion  status  was  returned  by 
the  printer  controller  *ollowina  a  orint 
ODeration.  This  error  may  be  caused  bv 
printer  power  off?  printer  not  selected  or 
printer  out  of  oaoer. 


A7 


TASK  DELETED 


when  RECOVERY  is  specified  during  system 
i n i t i a  1 i zat i on ,  this  message  is  displayed 
at  the  terminal  which  was  executing  when 
the  system  failure  occurred.  It  indicates 
that  this  terminal  user  must  reestablish 
the  environment. 
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F.   MTS/USER  PROGRAM  INTERFACE 

1.   Program  Interface  Design 

MIS  was  designed  to  provide  a  timeshared/  virtual 
8080  microprocessor  environment  for  microcomputer  systems 
development.  The  term  virtual  is  appropriate  here  because 
the  user  actually  interfaces  with  MJS  for  many  services 
normally  provided  by  hardware  in  a  dedicated  CPU 
environment.  A  software  interface  between  user  programs  and 
the  Svcor  440  hardware  is  necessary  in  order  to  allocate  the 
hardware  resources  eguitably  and  efficiently/  while  at  the 
same  time  satisfying  the  service  reauirements  of  several 
competing  user  crograms. 

The  MTS/user  program  interface  consists  of  a  set  of 
service  routines  which  may  be  callea  by  a  user  program 
through  a  single  entrv  point  to  perform  terminal  T/0/  access 
virtual  floppy  disks/  or  modify  the  user's  virtual 
environment.  The  design  was  heavily  influenced  by  the  C  P  /  M 
operating  system  which  uses  a  similar  scheme  for  I/O. 

The  set  of  service  routines  may  De  logically  divided 
into  two  types  of  calls  on  MTS.  The  first  type/  system 
calls/  cerform  the  sate  functions  for  a  user  program  as 
system  commands  provide  for  the  user  at  a  terminal  (D.3). 
The  functions  deal  with  modifying  the  user's  current  virtual 
environment  by  chancing  memory  size/  attaching  various 
virtual  oisks  to  virtual  orives/  or  even  logging  on  ana  off 
the  system.  Service  calls  are  the  secona  type  of  call 
provided  by  the  MTS  software  interface.   Service   calls   are 
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used  to  perform  terminal  I/O  and  access  virtal  flopoy  disks. 
A  call  to  MTS  takes  the  form 

<value>  =  MTS(<f id>* <oarm>) 
The  first  argument*  <fid>*  is  a  number  from  0  to  17  which 
identifies  the  function  reauested.  The  <oarm>  argument  may 
oe  a  parameter  value?  if  only  a  single  parameter  is 
required*  or  the  address  of  a  parameter  list  if  more  than 
one  parameter  is  reauired.  In  each  case  ^TS  returns  <value> 
uDon  completion  of  the  reauested  operation.  This  returned 
value  may  oe  an  ASCII  character  code*  an  error  code*  or  in 
several  cases  nave  no  significance.  Both  system  calls  and 
service  calls  are  formed  as  aescribed  above.  The  syntax  and 
function  of  each  call  are  described  in  sections  2  ana  3. 
Section  4  details  the  calling  procedures  which  include  the 
register  assignments  for  <fia>*  <oarm>  and  return  values. 
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2.   System  Calls 

All  system  commands  available  to  a  user  at  a 
terminal  are  also  availaole  to  a  user  program  through  system 
calls.  An  additional  call  is  provided  which  will  disolay  an 
aoprooriate  terminal  alert  at  the  user's  terminal  if  entered 
with  an  error  code.  Table  1  summarizes  the  reguired 
arguments  and  return  values  of  each  system  call. 


FID 

0 
1 
2 

5 
a 
5 
6 

7 


TABLE  1 
SYSTEM  CALL  SUMMARY 
NAME  PARiM 


ATTACH 

DISPLAr  MSG 

LOGIN 

PROTECT 

QUIT 

RESTRICT 

SIZE 

UNPROTECT 


1  i  st 

error  code 

1  i  st 

1  i  st 

none 

1  i  st 

size 

1  i  st 


VALUE 

error  code 
none 

error  code 

error  code 
none 

error  code 

error  code 

error  code 


a .   Argument  s 

Each  system  call  is  identified  by  a  number  which 
MTS  associates  with  a  particular  service  routine.  In 
adaition  to  this  function  identifier/  MTS  may  reguire  one  or 
several  additional  parameters  to  Derform  the  reouested 
service.  rt  h  e  n  more  than  one  oarameter  is  reguired/  MTS  must 
be  passed  the  address  of  a  byte  vector  containing  these 
parameters.   Each  system   call   reguires   that   this   vector 
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conform  to  some  fixed  format.  In  genera)  each  byte  of  the 
vector  will  contain  seme  numeric  value  or  an  ASCII  character 
code/  but  situations  rray  arise  when  an  optional  parameter  is 
not  specified.  In  such  cases  the  cor resoondi nq  byte  in  the 
parameter  vector  must  be  filled  with  the  value  FFH.  Section 
4  details  the  calling  orocedure  which  includes  the  register 
assignments  for  the  arguments. 

D.   System  Call  Descriptions 

The  following   Daaes   describe   in   detail   each 
system  call. 
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SYSTEM  CALL 


ATTACH 


Func  t  i  on 


To  attach  a  virtual  f 1 oopy  disk  to  a  virtual  disk   drive 
for  use  oy  a  user  at  a  specific  terminal. 


Argument  s : 
FID  =  0 


PARM  =  address  of  parameter  vector 

byte  0:  drive  number  where  A  =  0,  8=1/  etc. 

byte  1:  disk  numoer  -  0  to  31 

oytes  2-5:  protection  key  •  0  to  i  ASCII  characters 


Oesc  r  i  pt  i  on  : 

This  call  simulates  the  physical  ooeration  of  loadinq 
virtual  disk  <aisk  nr>  into  virtual  drive  <drive  nr>. 
All  parameters  are  optional.  If  disk  and/or  drive  nr  is 
not  specified  ^  T  S  searches  the  disk  or  drive  mao  table 
resoectively  for  the  first  available  entry.  A 
protection  key  is  only  required  if  the  virtual  disk  to 
De  attached  has  been  assigned  reaa/write  orotection. 
The  call  returns  an  error  code  upon  comoletion. 

Error  Cooes : 

0  -  Operation  successful 

£  -  hither  disk  number  has  not  been  specified  and  tnere 
is  no  dis<  presently  available  for  assignment;  or 
the  spec i f i eo  dis<  is  not  available  for  assionment. 

3  -  Disk  number  specified  is  presently  allocated  with 
read/write  access  to  another  user. 

Q    -  Distc  number  specified  is  greater  than  31. 


5  -  lhe  specif  i  e  c  disk  reguires  a  key  and  eitner  a   key 

has   not   been   entered   or  the  entered  key  did  not 
match  . 

6  -  Drive  number  soecified  is  areater    than  7. 

10  -  Drive  number  has  not  been  specified  and  there  is  no 
drive  Dresently  available  for  assignment. 


SYSTEM  CALL 


DISPLAY  MSG 


Func t  i  on  : 


To  display  a  terminal  alert  in  the  status   message   area 
of  the  user's  terminal. 


Argument  s  : 
PID  =  1 

PARM  =  error  code 


Description: 

This  call  takes  an  error  code  as  input  and  displays  the 
corresponding  predefined  terminal  alert  message  on  the 
user's  terminal.  The  DISPLAY  MSG  system  call  provides 
the  only  way  for  a  user  to  display  messages  on  the 
terminal  status  line.  No  value  is  returned  Dv  this 
system  call. 


Action: 

0  -  bl ank 

1  -  INVALID  CMD 

2  -  DISK  NOT  AVAIL 

3  -  DISK  IN  USE 

a  -  DISK  NR  EKRQR 

5  -  KEY  ERROR 

6  -  DRIVE  LTR  ERROR 

7  -  PRINTER  NOT  RQY 

8  -  HARDWARE  E&RCR 

9  -  TASK  DELETED 

10  -  DRIVE  NOT  AVAIL 
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SYSTEM  CALL 


LOGIN 


Func t  i  on  : 


Reinitializes  the  user's  MTS  environment  and  reboots  the 
user's  system  from  drive  A. 


A  rgument  s : 
FID  =  2 


PARM  =  aadress  of  parameter  vector 
byte  0:  disk  numoer  -  0  to  31 
bytes  1-4:  orotect  ion  key  -  U  to 


a  ASCII  characters 


Desc  r  i  pt  i  on  : 


This  system  call  creates  a  reinitialized  MTS  environment 
for  the  user  program.  Memory  size  remains  at  tne 
current  value  ana  the  soecifi<*a  Oisk/  if  any,  will  be 
attached  to  drive  A.  If  no  dis<  number  is  soecified* 
disk  number  0  containing  the  CP/M  system  is  attached. 
Drive  assignment  and  memory  size  will  be  displayed  on 
the  status  line  of  the  user's  terminal.  The  user  system 
is  then  reoootec  from  drive  A.  All  other  drives  and 
disks  are    reset. 


Error  Codes : 

0  -  Operation  successful 

2  -  The  specified  disk  is  not  available  for  assignment. 

3  -  Dis<  number  specified  is  currently   allocated   with 

read/write  access  to  another  user. 

4  -  Disk  number  specified  is  greater  than  31. 

5  -  The  specified  disk  requires  a  key  and  either  a   key 

has   not   been   entered   or  the  entered  key  did  not 
match. 

8  -  Aonormal  comDletion  status  was  returned  by  the 
mini-disk  controller  following  a  write  ooeration. 
This  may  indicate  t  h  a  f  the  last  virtual  disk 
written  to  was  not  closed  oroperly  and  data  has 
been  lost. 
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SYSTEM  CALL 


PROTECT 


Func  t  i  on  : 

Read/write  orotect  a  virtual  disk. 


Argument  s : 
FID  =  3 


PARM  s  address  of  parameter  vector 
byte  0:  disk  number  -  0  to  31 
bytes  1-4:  orotection  key  -  1  to 


4  ASC  1 1  charac  t ers 


Desc  r i  pt  i  on : 

This  system  call  adds  the  read/write  protection 
attribute  to  the  soeci  f iea  virtual  aisk.  This  is 
accomplished  by  the  uooate  of  the  basic  configuration 
file  .MTSCNFG  [  C  .  4  ]  .  Uoon  normal  comoletion  of  the  call 
aisk  use  is  limited  only  to  those  who  know  the 
protection  key  . 


Error  Codes  : 


0  - 

a  - 

5  - 

8  - 


Operation  successful 

Disk  number  soecified  is  greater  than  31. 


Key   has   not   oeen   entered 
protected  with  another  key. 


o  r 


disk   is 


a  1  ready 


Abnormal  comoletion  status  was  returnea  by  the 
mini-disk  controller  following  a  read  or  write 
operation.  This  may  indicate  that  the  last  virtual 
disk  written  to  was  not  closed  properly  ana  data 
has  been  lost. 
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SYSTEM  CALL 


QUIT 


Func t  i  on : 

Logs  the  user  off  MTS 

Argument  s : 
FIO  =  a 
PARV  =  none  required 


Oesc  r  i  pt  i  on : 

This  system  call  notifies  M T S  that  the  requesting  user 
program  is  no  longer  active.  Control  will  not  be 
returned  to  the  user  program.  The  user  must  log  in 
through  the  terminal  to  regain  system  facilities. 


Error  Codes : 


0  -  Operation  successful. 

8  -  Abnormal  comoletion  status  «as  returneo  by  tne 
mini-disk  controller  following  a  write  ooeration. 
This  may  indicate  that  the  last  virtual  disk 
written  to  was  not  closed  proper 
been  lost.  If  this  error  code  is 
terminal  alert  HARDWARE  ERROR  is 
displayed  in  the  status  message  area 
terminal . 


y  ana  data  has 

ret  urned,   the 

automatically 


of  the 


users 
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SYSTEM  CALL 


RESTRICT 


F  u  n  c  t  ion: 

Assignment  of  "read  only"  restriction  to  a  virtual  disk. 


Argument  s : 
FID  =  5 


PARM  =  address  of  parameter  vector 
byte  0:  disk  numper  -  0  to  31 
Dytes  1-4:  orotect ion  key  -  1  to 


a  ASCII  characters 


Desc  r  i  pt  i  on : 

This  system  call  adds  the  read  restriction  attribute  to 
a  virtual  disk  which  has  been  previously  protected.  The 
protection  key  is  the  same  as  that  used  for  the  orotect 
system  call.  M T S  adas  the  reaa  restriction  attribute  to 
the  oasic  confiauration  file  .  MTSCNFG. 


Error  Cooes : 

0  -  (Joeration  successful 

3  -  Disk   number   specified   currently   allocated   * i t h 

read/write  access  to  another  user. 

4  -  Disk  number  specified  is  greater  than  31. 

5  -  The  specifieo  disk  requires  a  kev  and  either  a   kev 

has   not   been   entered   or  the  entered  kev  did  not 
match  . 

8  -  Abnormal  completion  status  was  returned  by  the 
mini-aisk  controller  following  a  read  or  write 
operation.  This  may  indicate  that  the  last  virtual 
disk  written  to  was  not  closed  orooerly  and  data 
has  been  lost. 
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SYSTEM  CALL 


SIZE 


Func t  i  on  : 

Set  the  amount  of  memory  available  to  the  user. 

Argument  s : 
FID  =  6 
PARM  =  memory  size  in  kilobytes 

Oesc  rot  i  on  : 

This  system  call  adjusts  the  size  of  the  user's  swap 
image  to  the  scecified  value.  The  value  must  fall  in 
the  range  0  to  tt8#  and  also  must  not  be  greater  than  tne 
size  of  the  swap  file  associated  with  the  user's 
terminal . 

Error  Codes : 

0  -  Ooeration  successful. 

1  -  Either  soecifieo  size  exceeds  48K#  or  a  value   less 

than   4<JK   exceeds   the   size  of  the  available  swao 
file. 
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SYSfEM  CALL 


UNPROTECT 


Func  t  i on  : 


Remove  a  previously 
virtual  disk. 


specified   protection   key   from 


Argument  s : 
FID  =  7 


PARv  =  address  of  parameter  vector 
byte  0:  disk  number  -  0  to  31 
oytes  1-4:  orctection  key  -  1  to  4  ASCil 


characters 


Descript  ion: 

This  system  call  removes  all  orotection  attributes  from 
the  specified  virtual  disk.  This  is  accomplished  by 
modification  of  the  configuration  file  .MTSCNFG, 


Error  Codes : 

0  -  Operation  successful 

4  -  Disk  number  specified  is  greater  than  31. 

5  -  A  orotection  key  is  reauirea  ana  either  a   key   has 

not  been  entereo  or  the  entered  key  did  not  match. 

8  -  Abnormal  completion  status  was  returned  by  the 
mini-disk  controller  following  a  read  or  write 
operation.  This  may  inaicate  that  the  last  virtual 
disk  written  to  was  not  closed  oroperly  ana  aata 
has  been  lost. 
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3 .   Service  Calls 

The  MTS  environment  currently  provides  a  virtual  CRT 
terminal  as  the  primary  I/O  device  and  virtual  floppy  disk 
drives  for  auxiliary  storage.  Access  to  both  of  these 
virtual  Oevices  is  through  MTS  service  calls.  A  summary  of 
the  service  calls  showing  parameters  and  returned  values  is 
gi  ven  in  Table  2 . 

TABLE  2 

SERVICE  CALL  SUMMARY 


FID       NAME 

8  TERMINAL  STATUS 

9  READ  TERMINAL 

10  WRITE  TERMINAL 

11  WRITE  PRINTER 

12  SELECT  DRIVE 

13  SET  DMA 

14  SET  TRACK 

15  SET  SECTOR 

16  READ  FLOPPY 

17  WRITE  FLOPPY 


PARM 

none 
none 

character 
character 
drive  nr 


VALUE 

t  rue/ false 
character 
none 

error  code 
error  code 


dma  adaress   error  code 
track  nr      error  code 


sector  nr 

none 

none 


error  code 
error  code 
error  code 


a.   Virtual  Terminals 

The  MTS  virtual  terminal  simulates  trie  operation 
of  a  serial  half-duplex  console  device.  Single  ASCII 
characters  may  be  passed  from  the  terminal  kevooard  to  a 
user   prooram,   or   from   a  user  program  to  the  terminal  for 
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display.  A  service  call  to  MTS  is  required  to  pass  each 
character.  MTS  also  provides  a  terminal  status  service  call 
which  allows  a  user  program  to  test  the  status  of  a 
terminal . 

The  user  should  keeD  in  mind  that  characters  are 
actually  oeing  passed  between  his  program  and  the  terminal 
display  Duffer  (D.l.b).  This  means  that  inout  need  not  oe 
echoed  by  the  user's  program  since  it  already  appears  on  the 
disolay.  Simole  line  editing  is  also  provided  by  MTS  on  the 
input  data  orior  to  making  that  data  available  for 
processing  by  the  user's  Drogram. 

The  user  can  directly  contribute  to  improved 
system  response  oy  Drcper  use  of  the  terminal  service  calls. 
It  is  common  practice  when  writina  conversational  proarams 
to  implement  a  "get  character"  routine  to  handle  input  from 
the  terminal.  Normally  this  routine  does  little  more  than 
repeatedly  test  the  terminal  status  until  it  finas  inout 
waiting.  In  the  MTS  environment  a  more  efficient  method  of 
accomo 1 i sh i ng  the  sa^e  goal  is  to  immediately  read  from  the 
terminal  without  testing  for  status.  If  inout  is  waiting* 
the  first  character  will  be  nassea  immediately.  More 
importantly*  if  there  is  no  input  waiting,  MTS  will  block 
the  user's  program  until  a  character  is  enterea  at  tne 
keyboard.  The  blockeo  program  may  be  swapped  out  and  the 
CPU  allocated  to  another  user.  Tnis  method  of  implementing 
conversational  programs  takes  advantage  of  unproductive 
waiting  time  in  one  user  proqram  to  service  additional 
users  . 
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b.   Virtual  Floopy  Disk  Drives 

The  MTS  virtual  floppy  disk  drive  provides 
auxiliary  storage  for  user  programs  on  virtual  floppy  disks. 
These  hard-sec torea  aisks  have  128  bytes  per  sector,  26 
sectors  per  track,  ana  a  maximum  number  of  tracks  determined 
by  the  size  of  the  file  containing  the  disk  image  (C.6). 
Each  user  has  eight  drives  available  for  dedicated  use. 

Drive  A  is  activated  when  the  user  logs  in  and 
serves  as  the  user  system  load  device.  In  a  orocess  which 
simulates  a  cold-start  bootstrap  load  the  first  four  sectors 
on  track  0  are  read  into  the  user's  memory  space  at  location 
4000H.  MTS  assumes  that  these  sectors  contain  executable 
code  which  will  load  the  remainder  of  the  user's  system. 
Unless  another  disk  is  SDecifiea  in  the  L  0  G I  f  4  command 
strinq,  a  read-only  disk  containing  the  CP/M  operating 
system  will  be  attached  when  drive  A  is  activatea. 

The  user  may  activate  any  or  all  of  the 
remaining  virtual  drives  Ov  attachinq  a  virtual  disk.  This 
is  accomplished  from  the  terminal  by  entering  the  ATTACH 
system  command  or  directly  from  the  user's  orogram  by  a  call 
to  MTS.  Although  no  cirect  method  for  detaching  a  virtual 
disk  is  provided  by  MTS,  the  same  effect  is  produced 
indirectly  by  overridino  the  current  drive  assignment  with  a 
second  ATTACH  command.  when  the  second  floppy  disk  is 
attached  MTS  closes  the  previously  attached  aisk  and 
releases  it  for  use  elsewhere. 

Data  transfer  between  a  virtual  disk  and  a  user 
program   utilizes   a   128   byte  buffer  in  the  user's  program 
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soace  called  a  DMA  buffer.  The  name  is  derived  from  the 
nature  of  the  transfer  ooeration:  to  tne  user  program  it 
appears  that  data  transfer  is  by  direct  memory  access. 

Before  the  user  program  can  access  a  particular 
virtual  disk  sector  the  user  must  specify  a  complete  sector 
address  and  a  DMA  puffer.  A  complete  sector  address  consists 
of  drive*  track,  ano  sector  numoers.  Note  that  M T S  will  not 
allow  a  virtual  drive  to  be  selected  until  a  disk  has  been 
attached.  A  DMA  buffer  is  defined  by  its  case  address.  MTS 
provides  a  service  call  to  enter  each  of  these  four  values. 
Once  a  value  has  been  entered  it  will  be  used  for  all 
suoseouent  virtual  disk  accesses  until  redefined  by  a  second 
service  call. 

c.   Dedicated  Printer 

The  MTS  dedicated  printer  provides  the  user  with 
the  ability  to  obtain  hard-copy  output.  Single  ASCII 
characters  r^ay  be  oassed  from  the  user  program  to  the 
printer  for  disDlay.  A  service  call  to  MTS  is  required  to 
pass  each  character. 

The  printer  is  a  dedicated  device.  This  "-eans 
that  once  a  task  is  allocated  the  printer,  no  other  tasks 
may  use  the  orinter.  A  task  is  allocated  the  printer  merely 
dv  the  successful  completion  of  a  call  to  the  write  printer 
service  routine.  The  write  printer  service  routine  buffers 
the  characters  in  memory  and  eventually  writes  the 
characters  to  the  .MTSPRT  disk  file.  Note  that  the  printer 
does  not  actually  print  the  characters  until  the  end  of  file 
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character  is  received.  When  the  user  task  issues  the  end  of 
file  character  (control  Z)  >  the  printer  prints  the 
information  contained  in  .MTSPRT.  A  repeat  character 
(control  R)  causes  the  information  in  .MTSPRT  to  be  outout 
to  the  printer.  After  the  control  R  or  Control  Z  has  been 
issued  the  printer  is  not  available  to  any  task  until  after 
all  information  in  .MTSPRT  has  been  printed. 

d .  Argument  s 

Service  calls  have  the  same  form  as  other  calls 
to  MTS.  A  numerical  function  identifier  is  associatea  with 
each  call  to  identify  the  service  desired.  The  second 
argument  is  a  single  Darameter  in  most  cases*  although 
several  of  the  service  calls  require  no  second  argument. 
Section  4  aetails  the  calling  procedures  which  incluae  the 
register  assignments  for  the  arguments. 

e.  Service  Call  Descriptions 

The  following  Daaes  descrioe  in  aetail  each 
individual  service  call. 
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SERVICE  CALL 


TERMINAL  STATUS 


Func t  i  on  : 

Interrogate  the  status  of  the  user's  terminal* 

Argument  s : 
FID  =  8 
PARM  =  none  requi  red 


Descr  i  pt  i  on : 

This  service  call  returns  a  logical  value  answering   the 


guest  i  on 
shou Id  not 
process  i  ng 
ava  i  1 ab 1 e  . 
the   READ 
other  user 


Is   terminal  input  waiting?"   TERMINAL  STATUS 

be  usee  in  those  situations  where  ro  further 
can  be  accomDlished  until  terminal  input  is 
In  such  a  case  it  is  more  efficient   to   use 

TERMINAL   service  call  to  allow  processing  of 

tasks  while  waiting. 


Val ue: 

QOrl  -  all  terminal  input  orocessed 
FFh  -  terminal  incut  waiting 
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SERVICE  CALL 


READ  TERMINAL 


F  u  n  c  t  ion: 


Read   the 
terminal . 


next   available   character   from   the   user's 


Argument  s : 
FIO  =  9 
PARM  =  none  required 

Oesc  r  i  pt  i  on : 

This  service  call  passes  the  next  available  ASCII 
character  from  the  user's  terminal  display  buffer  to  the 
user  program.  Ihe  maximum  size  input  line  is  512 
characters.  Each  input  line  is  terminated  by  a  carriage 
return.  It  is  not  necessary  for  user  programs  to  echo 
input  characters  since  they  are  already  aisolayed  on  the 
user's  terminal  Defore  becoming  availaole  to  the  user 
program.   Line  eaiting  functions  are  orovidea  by  M  T  S . 

Value: 

A  single  ASCII  character  -  the  end  of  each  input  line  is 
indicated  by  the  return  of  a  carriage  return  (ASCII  = 
OOH)  . 
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SERVICE  CALL 


WRITE  TERMINAL 


Func  t  i  on : 

To  write  a  cnaracter  to  the  user's  terminal. 

Argument  s  : 

FID  =  10 

PARM  =  a  single  ASCII  character 


Description: 

This  service  call  passes  the  soec i f i ed  character  from 
the  user  orogram  to  the  terminal  disolay  buffer  for 
display.  Carriage  return  (ASCII  =  ODH)  returns  the 
cursor  to  first  position  of  the  current  line.  Line  Feed 
(ASCII  =  OAH)  moves  the  cursor  down  one  line.  Each 
outcut  line  will  normally  be  terminated  oy  the  CR-LF 
comb  i  na t  i  on . 


Val ue: 

iMone  returned. 
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SERVICE  CALL 


KRITE  PRINTER 


Funct i  on : 

To  write  a  character  to  the  printer. 

Argument  s : 

FID  =  11 

PARM  =  a  single  ASCII  character 

Description: 

This  service  call  passes  the  soecified  character  from 
the  user  orogram  to  the  printer  buffer.  The  Drinter 
does  not  orint  any  cnaracters  until  the  end  of  file 
character  (control  Z)  is  received.  If  an  end  of  file 
character  had  been  previously  received/  tne  repeat 
character  (control  R)  may  be  i ssuea  resulting  in  the 
printing  of  information  uo  to  the  last  end  of  file. 

Error  Codes: 

0  -  Operation  successful 

7  -  Printer  is  not  ready.   Printer  may  be   turned   oH» 

not  selected  or  out  of  paper. 

8  -  Abnormal  completion   status   was   returned   by   the 

mini-disk  controller  following  a  write  operation. 

11  -  Printer   is   in   use.    This   code   indicates   that 

another  task  currently  has  control  of  the  printer 
or  the  printer  is  currently  orint ing  a  file. 

12  -  The  end   of   the   Drinter   file   .MTSPRT   has   been 

exceeaea.  The  user  must  recreate  the  .^TSPRT  file 
with  a  larger  file  size  .in  order  to  alleviate  this 
error  [C  .51  . 
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SERVICE  CALL 


SELECT  DRIVE 


Func  t  i  on : 


Selects  the  virtual  floppy  disk  drive  to  be  used  in 
subsequent  floppy  disk  accesses. 


Argument s  : 

FID  =  12 

PARM  =  drive  number  where  A=0,  B=l»  etc. 

Descriotion: 

This  service  call  selects  one  of  the  eight  virtual 
flopoy  disk  drives  availaole  tc  each  user  orogra-n 
for  use  in  subseauent  flopoy  disk  accesses.  Before 
a  drive  can  be  selected*  a  virtual  disk  must  be 
at  t  ached. 

Error  Codes  : 

0  -  Operation  Successful. 

6  -  Drive  number  soec i f i ed  is  qreater  than  7.  Selected 
drive  is  c  hanged . 

8  -  Abnormal  completion  status  was  returned  by  the 
mini-disk  controller  following  a  read  or  write 
operat  i  on . 

10  -  Drive  specified  is  not  in  use.  Indicates  that  no 
virtual  disk  has  been  attachea  to  tne  specified 
drive.   Selected  drive  is  unchanged. 
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SERVICE  CALL 


SET  DMA 


Function: 


Sets  the  base  address  of  the  128  byte  DMA  buffer   to   oe 
used  in  subseauent  floppy  disk  accesses. 


A  pgument  s  : 
FID  =13 
PARM  =  base  address  of  DMA  buffer 

Desc  r  i  pt  i  on  : 

The  DMA  ouffer  reauired  to  access  a  virtual  floopv  disk 
must  be  a  contiguous  block  of  128  bytes  located  in  tne 
user's  memory  space*  i.e.  with  base  address  greater 
than  4000m.  Specifying  a  DMA  address  areater  than  or 
eoual  to  FF00H  will  have  unpredictable  results/  but  can 
normally  be  expected  to  cause  a  svstem  crash  and 
suoseguent  deletion  of  the  user's  task  upon  recovery. 


Error  Codes : 

0  -  Operation  successful. 

12  -  Address  specified  is  less  than  the  base   of 
memory    space.     Current    DMA    address 
unc  hanged . 


user's 
rema  i  ns 
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SERVICE  CALL 


SET  TRACK 


Func  t  i  on : 


Sets   the   floppy   disk   track   number   to 
subsequent  virtual  floppy  disk  accesses. 


be   used   i  n 


Argument  s I 

FID  =  14 

PARM  =  track  numoer  -  0  to  76 

Desc  r i  pt  i  on  : 

This  service  call  sets  the  track  numoer  to  be  used  in 
subsequent  floopy  distc  accesses.  Values  may  range  from 
0  to  76.  The  value  cannot  be  validated  until  it  is 
associated  with  a  virtual  floppv  disK  number;  therefore* 
no  validation  is  performed  until  a  read  or  write 
ooeration  is  requested. 


Error  Codes : 

0  -  Operation  successful 

12  -  Track  number  specified  is  greater  than  76 
value  of  track  number  remains  unchanged. 


Current 
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SERVICE  CALL 


SET  SECTOR 


Func t  i  on : 


Sets  the  floopy  disk  sector  number  to   be 
subsequent  virtual  floppy  disk  accesses. 


used   i  n 


A  rgumen t  s  : 

FID  =  15 

PARM  =  sector  numoer  -  1  to  26 

Desc  r  i  ot  i  on  : 

This  service  call  sets  the  sector  number  to  be  used 
in  subsequent  virtual  f Iodpv  disk  accesses.  Since 
each  floopv  oisk  track  contains  2b  sectors  numbered 
from  1  to  26,  this  value  cannot  be  less  than  1  nor 
great  er  than  26 . 

Error  Codes : 

0  -  Operation  successful. 

12  -  Sector  number  specified  is  less  than  1  or  greater 
than  26.  Current  value  of  sector  number  remains 
unchanged . 
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SERVICE  CALL 


READ  FLOPPY 


Func  t  i  on : 

Simulates  reading  a  128  bvte  sector  from  a  floppy  disk 

A  rgument  s I 

FID  =  16 

PARM  s  none  required 


Desc  r  i  pt  i  on : 
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Error  Cooes : 

0  -  Operation  successful. 

8  -  Aonormal  comoletion  status  was  returned  by  the 
mini-disk  controller  following  a  read  or  write 
operat  i  on . 

12  -  Calculated  mini-disk  address  out  of  bounds.    Prob- 
able error  in  specified  track  number. 
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SERVICE  CALL 


WRITE  FLUPPY 


Func  t  i  on : 

Simulates  writing  a  128  byte  sector  to  a  floppy  disk 

A  rgument  s : 

FID  =  17 

PARM  =  none  required 


Oesc  r  i  pt  i  on  : 
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Error  Codes  : 

0  -  Operation  successful. 

2  -  Floopy  disk  is  read  only.   >\rite  is  not  permitted. 

8  -  Aonormal  completion  status  was  returned  by  the 
mini-disk  controller  following  a  read  or  write 
operat  ion. 

12  -  Calculated  mini-disk  address  out  of  bounds.    Prob- 
able error  in  specified  track  number. 
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4.   Calling  Procedure 

All  calls  to  VTS/  whether  system  calls  or  service 
calls/  are  made  tnrough  a  single  entry  ooint  at  location 
2000H.  Each  call  takes  two  arguments:  the  function 
identifier  in  register  C;  and  a  parameter  value  or  address 
in  register  pair  DE.  In  those  cases  where  the  second 
argument  is  only  a  single  byte  the  contents  of  the  D 
register  are  ignored. 

Each  call  to  ^TS  returns  a  value  in  the  A  register. 
This  value  may  be  an  error  code/  an  ASCII  character  code/  or 
zero.  The  value  zero  is  returned  by  those  routines  whose 
value  has  no  sianificance  such  as  WRITE  TERMINAL. 

Note  that  the  register  assignments  for  arguments  and 
returned  values  conform  to  the  PL/M  convention  for  passing 
parameters.  The  following  examples  illustrate  the  calling 
procedure  for  8080  Assembly  Language/  M|_80f  and  PL/M  in  the 
MTS  environment.  Each  example  illustrates  the  sequence 
required  to  read  floopv  disk  sector  22/  track  43  on  drive  2 
into  a  DMA  buffer  at  address  aiOOH. 

a.   8080  Assembly  Language 

when  writing  in  8080  assembly   language   MTS   is 
accessed  by  a  direct  call  to  the  MTS  entry  point: 


MTS 


EQU 


2000H 


MVI 

C/  12 

;FID  =  12 

MVI 

E,2 

;DRlvE  MR  =  2 

CALL 

MTS 

;SELECT  DRIVE 

MVI 

C/  13 

;FID  =  13 

9b 


LXI 

D,4100m 

;DMA  ADDRESS  = 

CALL 

MTS 

;SET  DMA 

MVI 

C,  14 

;fid  =  14 

MVI 

E,  43 

; TRACK  MR  =  4  3 

CALL 

MTS 

;SET  TRACK 

MVI 

C,  15 

;fid  =  15 

MVI 

E,22 

;SECT0R  NR  =  2Z 

CALL 

MTS 

;SET  SECTOR 

MVI 

C,  16 

;FIO  =  16 

CALL 

MTS 

;READ  FLOPPY 

4100H 


MVI 

MVI 

CALL 

MVI 

CALL 


C,  15 
E,23 
MTS 
C,  16 

MTS 


;FID  =  15 
/•CHANGE  SECTOR  NR 
;SET  SECTOR 
;FID  =  16 
;READ  AGAIN 


b.   ML80 

The  r  e  a  d  i  b  i  1  i  t  y  of  M L 8 0  source  Drograms  may  oe 
enhanced  oy  defining  an  M80  macro  for  each  call  to  MTS  used 
in  the  program.  The  following  code  segment  contains  several 
examp 1 es  . 


[MACRO  MTS  '2000H'] 
[MACRO  SELECTSQRIVE  DNR  ' 

C  =  12;  E  =  [CNR]  ;  CALL  [MTSJ  '1 
[MACRO  SETJDMA  DMA  • 

C  =  13;  DE  =  TDMA] ;  CALL  CMTSI'l 
[MACRO  SETJTR4CK  TNR  ' 

C  =  14;  £  =  [TNR];  CALL  [MTSJ'] 
[MACRO  SETSSECTOR  SNR  ' 

C  =  15;  E  =  [SNR]  ;  CALL  [MTS]  '] 
[MACRO  READSFLOPPY  ' 

C  =  16;  CALL  [MTS]  '] 


/*  SPECIFY  COMPLETE 
[SELECTSDRIVE  '2M; 
(SETSDMA  '4100H']  ; 
[SETJTRACK  '43'l; 
(SETiSECTOR  '22')  ', 
[READJFLOPPY]  ; 


SECTOR  ADDRESS  AND  DMA  BUFFER  */ 
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/*  INCREMENT  SECTOR 
[SETSSECTOR  '23']; 
[READSFLOPPY] ; 


NR  AND  READ  AGAIN  */ 


c.   PL/M 


/♦a**************************************** 
/*        SAMPLE  PL/M  PROGRAM  SEGMENT 

I**********************************/ 


*/ 


/♦a**************** 


aoooH 


USER:  PROCEDURE; 

• 

DECLARE 

LIT 

LITERALLY 

•LITERALLY 

MTS 

LIT 

2000H'  , 

SELECTiDRlVE 

LIT 

12'  , 

SETSDMA 

LIT 

13', 

SETSTRACK 

LIT 

la-  , 

SETSSECTOR 

LIT 

15', 

READSFLOPPY 

LIT 

lb'  , 

DISPLAYSMSG 

LIT       ' 

i  •  ; 

/•A***************************************************/ 


/* 


MTS  INTERFACE  PROCEDURES 


*/ 


/A****************************************************/ 

MTSl:  PROCEDURE  (FID, PARM); 

/a***********************************/ 

/*  PROVIDES  THE  MTS  INTERFACE  FOR    */ 

/*  FUNCTIONS  'AHICH  DO  NOT  REQUIRE  A  */ 

/*  RETURN  VALUE.                      */ 

/*  INPUT:  FID  -  MTS  FUNCTION  ID      */ 

/*  PARM  -  PARAMETER  OR  ADDRESS*/ 

/*  OF  PARAMETER  LIST.   */ 
/♦a**********************************/ 


DECLARE  FID 
GO  TO  MTS; 
END  MTSt ; 


BYTE,  PARM  ADDRESS; 


MTS2:  PROCEDURE  (FID, PARM)  BYTE; 

/a***********************************/ 
/*  PROVIDES  THE  MTS  INTERFACE  FOR  */ 
/*  FUNCTIONS  WHICH  REQUIRE  A  VALUE  */ 
/*  RETURNED.  INPUT  PARAMETERS  ARE  */ 
/*  THE  SAME  AS  IN  MTSl .  */ 

/♦a**********************************/ 
DECLARE  FID  BYTE,  PARM  ADDRESS,* 
GO  TO  mts; 
END  MTS2; 
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/a***************************************************/ 
/*  SPECIFY  COMPLETE  SECTOR  ADDRESS  AND  DMA  BUFFER  */ 
/a***************************************************/ 

CALL  MTS1 CSELECT5DRIVE,  2); 

CALL  MTS1 (SETSDMA,  aiOOH); 

CALL  MTS1  CSETSTRACK,  43); 

CALL  MTS1CSETSSECTOR,  22); 

/•a**************************************************/ 

/*  READ  FLOPPY  RETURNS  AN  ERROR  CODE  WHICH  WILL 
/*  BE  RETURNED  TO  MTS  TO  BE  DISPLAYED  ON  THE 
/*  TERMINAL  STATUS  LINE. 
/A***************************************************/ 
CALL  MTS1 (DISPLAYSMSG,  MTS2 ( READSFLOPP Y , 0 ) ) ; 


*/ 
*/ 
*/ 


/*  INCREMENT  SECTOR  NP  AND  READ  AGAIN 


*/ 


CALL  MTS1 (SETSSECTOR,  23); 

CALL  MTSKDISPLAYSMSG,  MJS2  ( RE  ADSFLOPPY  ,  0  )  )  ; 


END  USER; 


EOF 
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5.   Limitations  on  User  Proqrams 

MTS  was  designed  to  provide  each  user  with   his   own 
virtual     8080     microprocessor.      Un f or t unat e 1 y f  the 

architecture  of  the  8080  CPU  is  not  amenable  to  self- 
virtual  i zat i on .  As  a  conseauence  several  limitations  must 
be  imposed  on  user  oroqrams  running  in  the  MTS  environment. 
These  limitations  are; 

(1)  The  user's  memory  space  extends  from  address  4000H  to 
FEFF,  a  total  of  48,8Q6  Oytes.  All  user  code,  data, 
and  buffers  must  be  contained  within  this  area  of 
memo  ry  , 
id)  All  user-definec  stacks  must  be  four  bytes  longer  than 
the  maximum  size  reauired  by  the  user.  The  four  extra 
bvtes  are  needec  if  an  interrupt  occurs  while  the 
user's  stack  is  full.  Failure  to  proviae  this 
additional  space  mav  result  in  ranaom  execution  errors 
which  are  not  reproducible  and  extremely  difficult  to 
ai  agnose . 
(3)  User  programs  should  not  read  or  write  directly  to  I/O 
ports  while  running  under  MTS.  Terminal  ana  floppy 
disk  access  is  provided  by  MTS  service  calls. 
Attempts  to  interface  directly  with  the  Sycor  440 
peripherals  or  auxiliary  storage  devices  may  interfere 
with  trie  operation  of  MTS  and  damage  other  users. 
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G.   CP/M  -  MTS  CP/M  INTERFACE 

1.  CP/M  to  MTS  CP/M  Program  Conversion 

Programs  mav  be  easily  converted  from  execution 
under  the  basic  CP/M  system  to  execution  under  the  MTS  CP/M 
system.  In  the  basic  version  of  CP/M  the  base  aadress  of 
the  system  is  00H  whereas  the  base  address  of  the  MTS 
version  of  CP/M  is  aoOOH.  This  is  the  fundamental 
difference  between  the  two  versions  of  CP/M.  By  taking 
existing  programs  and  translating  CP/M  related  aadresses  up 
by  aOOOH  these  programs  will  run  in  the  MTS  CP/M 
en v  i  ronment  . 

Spec i f i ca 1 1 y *  the  following  addresses  must  be 
modi  f  i  ed : 

(a)  default  file  control  block  from  005CH  -  007CH   changed 
to  405CH  -  a07CH 

(b)  default  128   byte   disk   buffer   from   0080H   -   OOFFH 
changed  to  U080H  -  aOFFH 

Cc)  default  address  of  transient  program  area   from   0100H 
changed  to  aiOOH 

2.  PHT  Program 

A  program  called  PRT  has  been  written  for  the  MTS 
CP/M  operating  system  which  provides  a  printer  system 
command  capaoility.   PRT  may  be  used  in  two  ways. 

First/  if  a  user  enters  an  I/O  control  P  to  CP/M  the 
printer  switch  is  activated  therebv  causing  all  information 
which  is  displayed  on  the  terminal  screen  to  also  be 
displayed   on  the  printer.   Recall  that  the  printer  requires 
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an  end  of  file  character  before  information  output  to  the 
printer  is  actually  printed.  After  the  user  has  issued  the 
command : 

PPT 
the  program   outputs   the   end   of   file   character   thereby 
causing  the  printing  cf  the  latest  information. 

Second/  P  R  T  may  be  utilized  to  print  any  ASCII   CP/M 
file.   After  the  user  enters  the  command: 

PRT  <f  i 1 ename> 
the  PRT  program  causes  the  hardcooy  outDut  of  the  file. 
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MTS  PROGRAM  LISTINGS 


/*  GLOBAL  IDENTIFIERS  */ 

/*  */ 

/*  THE  FOLLOWING  DECLARATIONS  DEFINE  SYSTEM  IDENTI-  */ 
/*  FIERS  WHOSE  SCOPE  IS  GLOBAL  THROUGHOUT  MTS.  THESE  */ 
/*  IDENTIFIERS  MAY  BE  DIVIDED  INTO  THREE  DISTINCT  */ 
/*  GROUPS.  THE  FIRST  GROUP  INCLUDES  ANY  IDENTIFIER  */ 
/*  CONSIDERED  GLOBAL  BECAUSE  IT  IS  REFERENCED  IN  TWO  */ 
/*  OR  MORE  MODULES  OF  THE  MTS  ML80  SOURCE  PROGRAM.  BY  */ 
/*  INCLUDING  THE  DECLARATIONS  FOR  ALL  SUCH  IDENTIFIERS*/ 
/*  IN  A  SINGLE  MODULE,  INTERMODULE  LINKAGE  IS  GREATLY  */ 
/*  SIMPLIFIED,  AND  THE  SOURCE  PROGRAMS' S  READABILITY  */ 
/*  AND  CLARITY  ARE  IMPROVED.  */ 

/■*  */ 

/*  THE  SECOND  GROUP  OF  IDENTIFIERS  INCLUDES  THOSE  */ 
/*  VARIABLES  WHICH,  TAKEN  TOGETHER,  DEFINE  THE  STATE  */ 
/*  OF  THE  SYSTEM,  I.E.  THE  SYSTEM  STATE  BLOCK.  THE  */ 
/*  CONCEPT  OF  SYSTEM  STATE  IS  IMPORTANT  IN  MTS  BECAUSE*/ 
/*  THE  SYCOR  440  HARDWARE  ARCHITECTURE  PROVIDES  NO  */ 
/*  PROTECTION  AGAINST  INADVERTENT  OR  MALICIOUS  TAMP-  */ 
/*  ERING  WITH  SYSTEM  CODE  BY  USER  PROGRAMS.  TO  MINI-  */ 
/*  MIZE  THE  EFFECTS  OF  SYSTEM  CRASHES  CAUSED  BY  SUCH  */ 
/*  TAMPERING  MTS  PROVIDES  A  LIMITED  RECOVERY  CAPABIL-  */ 
/*  ITY.  AFTER  A  TASK'S  TIMESLICE  EXPIRES,  AND  JUST  */ 
/*  PRIOR  TO  INITIATING  A  NEW  TASK,  THE  MTS  MONITOR  */ 
/*  COPIES  THE  CONTENTS  OF  THE  SYSTEM  STATE  BLOCK  TO  A  */ 
/*  FILE  NAMED  . MTSRCVR.  IF  A  CRASH  OCCURS  WHILE  THE  */ 
/■*  NEW  TASK  IS  EXECUTING,  RECOVERY  MAY  BE  ACCOMPLISHED*/ 
/*  BY  REBOOTING  MTS  AND  READING  THE  CONTENTS  OF  */ 
/*  .MTSRCVR  BACK  INTO  THE  SYSTEM  STATE  BLOCK.  THE  */ 
/*  TASK  WHICH  CAUSED  THE  CRASH  IS  THEN  DELETED  AND  */ 
/*  NORMAL  OPERATION  CONTINUES.  */ 

/*  */ 

/*  THE  THIRD  AND  FINAL  GROUP  OF  IDENTIFIERS  INCLUDES  */ 
/*  SYSTEM  DATA  ASSOCIATED  WITH  A  PARTICULAR  USER  TASK. */ 
/*  SINCE  THIS  DATA  IS  ONLY  USED  WHEN  ITS  ASSOCIATED  */ 
/*  TASK  IS  ACTIVE,  THE  SPACE  REQUIRED  FORMS  A  SYSTEM  */ 
/*  AREA  IN  THE  TASK'S  SWAP  IMAGE.  THIS  DATA  IS  SWAPPED*/ 
/*  IN  AND  OUT  ALONG  WITH  THE  USER  AREA  OF  THE  SWAP  */ 
/*  IMAGE.  */ 

/■*  */ 

/■*  THE  THREE  PRIMARY  IDENTIFIER  GROUPS  DESCRIBED  */ 
/*  ABOVE  MAY  ALSO  BE  SUBDIVIDED  BASED  ON  USAGE  AND  */ 
/*  STORAGE  ALLOCATION  REQUIREMENTS.  THE  GROUP  AND  */ 
/*  SUBGROUP  HEADINGS  FOR  DECLARATIONS  IN  THIS  MODULE  */ 
/*  ARE  AS  FOLLOWS:  */ 

/*  */ 

GENERAL  SYSTEM  DECLARATIONS  */ 

SYSTEM  STATE  BLOCK  DECLARATIONS  */ 

1.  SYSTEM  CONTROL  */ 

2.  TASK  CONTROL  TABLE  */ 

3.  DISK  MAP  TABLE  */ 
SYSTEM  SWAP  AREA  DECLARATIONS               */ 

1.  VIRTUAL  DISK  CONTROL  BLOCK  */ 

2.  SWAP  STACK  */ 

*/ 

/*  THE  ORDER  OF  ALL  DECLARATIONS  IN  THIS  MODULE  MUST  */ 
/*  BE  MAINTAINED  TO  PRODUCE  A  PROPERLY  FORMATTED  */ 
/*  OBJECT  MODULE.  IN  THIS  REGARD  SPECIFICATION  OF  THE  */ 
/*  INITIAL  ATTRIBUTE  IN  A  DECLARATION  MUST  BE  CONS  ID-  */ 
/*  ERED  CAREFULLY  SINCE  THE  ML80  COMPILER  ALLOCATES  */ 
/*  DIFFERENT  AREAS  OF  MEMORY  FOR  INITIALIZED  AND  */ 
/*  UNINITIALIZED  VARIABLES.  SPECIAL  PRECAUTIONS  ARE  */ 
/*  ALSO  NECESSARY  FOR  LOCAL  VARIABLES  USED  ONLY  IN  */ 
/*  SINGLE  MODULES.  THE  ML80  LINK  EDITOR  IS  FORCED  TO  */ 
/*  ALLOCATE  SPACE  FOR  SUCH  VARIABLES  WITHIN  THE  */ 
/*  MODULE'S  CODE  AREA  BY  DECLARING  EACH  SUCH  VARIABLE  */ 
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/* 

A 

/* 

B 

/* 

/* 

/* 

/* 

C 

/* 

/* 

/* 

/*    WITH  TYPE   DATA.    THIS    TECHNIQUES    IMPOSES    A   PENALTY      */ 
/*   OF   THREE   BYTES    PER  DECLARATION    FOR  UNNECESSARY  */ 

/*   JUMP    INSTRUCTIONS,    BUT  THE   SIMPLIFICATION   OF  */ 

/*    INTERMODULE    LINKAGES    MAKES    THE    TRADEOFF    WORTHWHILE. */ 

f  5f»*^3^  3^  *ft  3p»  »^  JfC  *p  *P  ?P  »P  *P  ^P  3n  *p  ^p  »f*  •?»  *P  *P  *P  *P  ^S  ^^  *P  5P5P  ^P  3P  *P  *n  *P  *P  »P  *P  3p  3p  *P  *P  "P  *^  ^^  ^^  ^*  *P  ^*  ^^  ^*  ^^  *P  "P  ^*  *r*  r 


^  SR 3p> Spl 3p  wf» wQt  3p» ^p *P  »P  *P  »P  *f*  »P  *P  *P  *P  *P  *P  *P  ^S  *P  ^P  *P  *P  *P  »P  3P *P  ^P  *P  3p  »P  *P  ^P  "P  *P  *P  ?P  'P  ^P  *P *P  »P  *P  *P  *P «P  -P  »P  *P  »P  ?P  *P  / 

/*****#***#**   GENERAL   SYSTEM  DECLARATIONS   **#********:«*/ 


DECLARE   PRTSSTAT  BYTE    INITIAL    (0); 

/*    PRINTER  STATUS    BYTE    */ 
DECLARE   BUF$PTR(2)    BYTE    INITIAL    (0,1); 

/■*    POINTER    INTO   PRINT   BUFFER  *' 
DECLARE   RESERVED( 13)    BYTE    INITIAL   (0,0,0,0,0,0,0,0,0,0, 

0,0,0) ; 

/*    RESERVED   FOR   CASSETTE   AND    ASYNC    INTERFACE  *• 

DECLARE   PARM(2)    BYTE    INITIAL    (0,0); 
DECLARE   DISK   BYTE    INITIAL    (0); 
DECLARE   DRIVE   BYTE    INITIAL    (0); 
DECLARE   ERROR  BYTE    INITIAL    (0); 
DECLARE   LOCK  BYTE    INITIAL    ( 1) ; 

/•*   SYSTEM  LOCK  -  */ 

/*  BIT   0:    SWAP    LOCK  -    MTS    CODE   EXECUTING  */ 

/■*  BITS    1-7:       (NOT   USED)  *• 

DECLARE   TASKSTIMER  BYTE    INITIAL    ( 0FFH)  ; 

/*    COUNTER   RECORDING    HOW    MANY   TIMER    INCREMENTS  */ 

/*    (50MS)    REMAIN    IN   TIMESLICE  */ 

DECLARE    SVCSSTACK(20>     BYTE    INITIAL    (0); 

/*    SERVICE   MODULE   STACK  */ 
DECLARE   SYS«STACK(20)     BYTE    INITIAL    (0); 

/*    MONITOR   MODULE    STACK   */ 
DECLARE    MDBUF(5I2)     BYTE    INITIAL    (0); 

/-*    MINI-DISK   BUFFER   -    CONTAINS    ONE    SECTOR   */" 
DECLARE    MDSAD(2)     BYTE    INITIAL    (0,0); 

/"*    SECTOR   NUMBER      OF    DATA    CONTAINED    IN    MDBUF    */ 


/*****:!!*:<!**    SYSTEM   STATE   BLOCK   DECLARATIONS    ***********/ 


/***********#*******    SYSTEM    CONTROL    *******************/ 

DECLARE   TASK  BYTE    INITIAL    (0); 

/*    TERMINAL    NR   OF    TASK   CURRENTLY  ALLOCATED  */ 

/*    THE   CPU   -    RANGE   0-3  */ 

DECLARE   RECSFILE(2)    BYTE    INITIAL    (0,0); 

/*    MINI -DISK  SECTOR   NUMBER      OF    . MTSRCVR  */ 
DECLARE   CNFGSFILE(2)     BYTE    INITIAL    (0,0); 

/*    MINI-DISK  SECTOR   NUMBER      OF    . MTSCNFG   */ 

/I*:**********:*:*:*:;***  TASK  CONTROL  TABLE  *************#:***/'' 
/*  THE  TCT  CONTAINS  INFORMATION  ON  THE  STATE  OF  EACH  */ 
/*  TASK  AND  DATA  REQUIRED  TO  SUPPORT  SWAPPING.  EACH  *s 
/■*■  VARIABLE  CONTAINS  FOUR  ENTRIES  -  ONE  FOR  EACH  OF  */- 
/*    THE   FOUR  TERMINAL    TASKS.  */ 

DECLARE   TCT$STATUS(4)    BYTE    INITIAL    (0,0,0,0); 

SIMULATE    BOOTSTRAP    DURING   NEXT  */ 

TIMESLICE  */ 

CALL    MCP    DURING    NEXT    TIMESLICE  */ 

(NOT   USED)  */ 

(NOT   USED)  */ 

RST   7    DURING   NEXT   TIMESLICE  */ 

BLOCKED    FOR   TERMINAL    I/O  */ 

CURRENT   SWAP    IM4GE    RESIDES    ON  */ 


1or> 


/-■* 

BIT 

0 

/* 

/* 

BIT 

1 

/* 

BIT 

2 

/■■* 

BIT 

3 

/* 

BIT 

4 

/■* 

BIT 

3 

/* 

BIT 

6 

/*  MINI-DISK  */ 

/*  BIT   7:    CURRENT   SWAP    IMAGE    IN    MEMORY  */ 

DECLARE   TCT*DM(32)    BYTE    INITIAL    (0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0) ; 

/*■    DRIVE    MAP    -    POINTERS    TO    VIRTUAL   DISK  ASSOC-    */ 
/*    IATED    WITH   EACH   VIRTUAL    DRIVE.     BYTES    0-7  */ 

/*    CORRESPOND    RESPECTIVELY   TO    DRIVES    A-H   FOR         */ 
/*    EACH  8   BYTE   ENTRY.  */ 

/*  BITS    0-4:    DISK  NR   -    RANGE    0-31  */ 

/"*  BIT   3:        (NOT   USED)  */ 

/*  BIT  6:    READ   ONLY  FLAG  */ 

/*  BIT   7:     IN    USE    FLAG  */ 

DECLARE   TCTSSIZE(4)    BYTE    INITIAL    (32,32,32,32); 
/"*    SIZE    OF    SWAP     IMAGE    EXPRESSED    IN    NUMBER   */ 
/*    OF    5  12    BYTE    MINI-DISK  SECTORS  */ 

DECLARE    TCT8B0EO)     BYTE    INITIAL    (0,0,0,0,0,0,0,0); 

DECLARE   TCTSEOE(S)     BYTE    INITIAL    (0,0,0,0,0,0,0,0); 

/*    MINI-DISK  SECTOR   NUMBER      FOR   EACH   SWAP    FILE    */ 
/■*   -    INITIALIZED    WHEN    MTS    LOADED  */ 

/■a:*::******::*:*****:*****  DISK  MAP  TABLE  IK******************:/" 

/*  THE    DMT   CONTAINS    INFORMATION    ON    THE   STATUS,     PRO-  */ 

/*  TECTION,     AND    LOCATION    ON    THE    MINI-DISK  OF    ALL    VIR-  */" 

/■*■  TUAL    FLOPPY   DISKS.     EACH    VARIABLE    CONTAINS    32  */ 

/*  ENTRIES    -    ONE   FOR  EACH  POTENTIAL    DISK  NR.    THE  */ 

/*  ENTIRE    TABLE    IS    LOADED    AND    VERIFIED    DURING    MTS  */ 

/*  INITIALIZATION.  */ 

DECLARE   DMTSFLAG(32)    BYTE    INITIAL    (0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0); 
/*  BIT  0:    DISK  EXISTS  */ 

/*  BIT    l:     IN    USE  */ 

/*  BIT   2:     PROTECTED    -    KEY   REQUIRED  */ 

/*  BIT   3:     RESTRICTED    TO    READ    ONLY   W/O    KEY      */ 

/*  BITS    4-7:       (NOT   USED)  */ 

DECLARE  DMT$B0E(64)  BYTE  INITIAL  (0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0) ; 

/*    MINI-DISK  SECTOR  NUMBER      FOR  BEGINNING   */ 
/"*    OF    EXTENT  */ 

DECLARE  DMT8E0E(64)  BYTE  INITIAL  (0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0) ; 

/*    MINI-DISK   SECTOR   NUMBER      FOR   END    */ 
/*    OF    EXTENT  */ 

DECLARE    DMT8KEYC 128)     BYTE     INITIAL    ( 20H) ; 

/*    ONE    TO    FOUR   ASCII    CHAR   PROTECTION    KEY  */ 


/*****#**#**    SYSTEM   SWAP    AREA    DECLARATIONS    **********:&#/ 


/I****:*:*:!!****::!!*    VIRTUAL    DISK    CONTROL    BLOCK   J**********:*:**/ 

/*  EACH    USER  TASK   HAS    AVAILABLE    8    VIRTUAL    DRIVES    WHICH*/ 

/*  MAY   BE    SELECTED    TO    ACCESS    THE    ATTACHED    VIRTUAL               */ 

/*  DISK.     FOR   EACH    USER    IT    IS    NECESSARY   TO    RECORD                 */ 

/*  WHICH    DRIVE    IS    CURRENTLY   ACTIVE,     AND    ADDITIONAL            */ 

/*  DATA   NEEDED    TO    MAP    A   VIRTUAL    DISK   ACCESS    INTO    A           */ 

/*  PHYSICAL    MINI-DISK  ACCESS.     ALL    THIS    INFORMATION    IS    */ 

/*  MAINTAINED    IN   THE    VDC    BLOCK.     THE    VDC    BLOCK  ASSOC-       */ 

/*  IATED    WITH   EACH   TASK    IS    CONTAINED    IN    THAT   TASKS            */ 

/*  SWAP    FILE    IN    A  SPECIAL    AREA    RESERVED    FOR   MTS    SYS-       */ 

/*  TEM   USE.     THIS    MEANS    THAT   ONLY  ONE   OF    THE    FOUR   VDC      */ 

/*  BLOCKS    MAINTAINED    BY   THE    SYSTEM    IS    EVER   RESIDENT         */ 

/*  IN   MEMORY   AT   ANY  ONE   TIME.                                                                  */ 

/  5fC  JfC S^C 5fC 3fC  3^  ifC  2fC  ^fC  ^  ^  rfZ  i#C  ^t^'K'K  5p  JfC  ^r*  *f*  ^t*  3p  Sfi  *K  »f*  *r*  !|C  *  JfC'fC^jC  Jft  2f!  7fZ  »f»  Jf*  «f»  *j>  »?» «P  *r*  'N'T"  »r*  »r*  'f^^i*  »t*-i»  »t»  'f-  *P*t*  *r*  • 
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DECLARE  VDCSDRIVE  BYTE; 

/*     BITS  0-2:  DRIVE  NR  FOR  DRIVE  CURRENTLY   */ 
/*  SELECTED  */ 

/*     BITS  3-5:   (NOT  USED)  */ 

/-*     BIT  6:  READ  ONLY  FLAG  */ 

/-*     BIT  7:  MODIFICATION  FLAG  -  SET  WHEN  CON-  */ 
/*  TENTS  OF  BUFFER  MODIFIED         */ 

DECLARE  VDCSB0E(2)  BYTE; 

/*  MINI-DISK  SECTOR  NUMBER   FOR  BOE  OF  VIRTUAL  */ 
/•*    DISK  CURRENTLY  ATTACHED  TO  SELECTED  DRIVE    */ 

DECLARE  VDCSEOEC2)  BYTE; 

/•*■   MINI -DISK  SECTOR  NUMBER   FOR  EOE  OF  VIRTUAL  */ 
/*  DISK  CURRENTLY  ATTACHED  TO  SELECTED  DRIVE    */ 

DECLARE  VDCSSECTOR  BYTE; 

/*  VIRTUAL  DISK  SECTOR   NR  FOR  SUBSEQUENT  */ 
/*  ACCESSES  -  RANGE  1-26  */ 

DECLARE  VDCSTRACK  BYTE; 

/*  VIRTUAL  DISK  TRACK  NR  FOR  SUBSEQUENT  */ 
s*    ACCESSES  -  RANGE  0-76  */ 

DECLARE  VDCSDMA(2)  BYTE; 

/*  MEMORY  ADDRESS  OF  128  BYTE  DM4  BUFFER  */ 
/*  FOR  SUBSEQUENT  VIRTUAL  DISK  ACCESSES   */ 

DECLARE  PRTSCNTRL  BYTE  INITIAL  (0); 
/*      BITS  0,1:    TASK        */ 
/*      BITS  2-5:    NOT  USED    */ 
/*      BIT   6:      PRINT  BIT   *• 
/*      BIT   7:       IN  USE  BIT  */ 

DECLARE  PRTSB0EC2)  BYTE  INITIAL  (0,0); 

/*  MINIDISK  SECTOR  *  OF  MTSPRT  BOE   */ 

DECLARE  PRT$E0E(2)  BYTE  INITIAL  (0,0); 

/■*    MINIDISK  SECTOR  #  OF  MTSPRT  EOE   */ 

DECLARE  PRT$SEC(2)  BYTE  INITIAL  (0,0); 

/*  SECTOR  *  OF  CURRENT  SECTOR  IN  PRINT  BUFFER  */ 

DECLARE  SPARES(9)  BYTE  INITIAL  (0,0,0,0,0,0,0,0,0); 
/*  RESERVED  CASSETTE  AND  ASYNC  INTERFACE       */ 

/*****#*********#**#**  SWAP  STACK  K*********************./ 

/*  EACH  TIME  A  TASK  IS  SWAPPED  OUT  THE  CURRENT  OPER-  */ 

/-*  ATING  ENVIRONMENT,  I.E.  PSW,  BC ,  DE,  HL,  AND  SP ,  */ 

/*  MUST  BE  SAVED  IN  A  KNOWN  AREA  SO  THAT  IT  CAN  BE  */ 

/*  QUICKLY  RESTORED  WHEN  THE  TASK  IS  SWAPPED  BACK  IN.  */ 

/*  MTS  USES  A  STACK  IN  THE  SYSTEM  AREA  OF  THE  SWAP  */ 

/-*  IMAGE  TO  HOLD  THE  ENVIRONMENT  WHEN  A  TASK  IS  */ 

/*  INACTIVE.  */ 

DECLARE  SWAPSSTACK(  10)  BYTE; 

/*    AREA  IN  WHICH  USER  ENVIRONMENT  IS  #• 
/*   SAVED  WHEN  TASK  IS  SWAPPED  OUT     */ 

EOF 
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/*                                             INTERRUPT  MODULE  */ 

r    *f«  •T^*^3r>*f*'^*f»5f>?r*5f» 'f* 'T*  JPJs  5f*  2r*?f*»r»5K  *r*  ?r*  *T»5f*  *f»  ?ft  ?P  »f>  .fl  »f*  <•£  «f»  «f!  ^  .7?  .p!  JfC  ?ft  *fC«jC  JfC  Vfc.  JfC  JfC  SfSSfRf!  3f»5f»»fC*fCSf»  SfE«fCS|C/ 

/*  *• 

/■*  */ 

/*    ALL    HARDWARE    INTERRUPTS    ON    THE   SYCOR   440    SYSTEM  *^ 

•*    CAUSE   THE   EXECUTION    OF    A   RST    1     INSTRUCTION.    THIS  */ 

S*    INSTRUCTION    BEHAVES    LIKE    A    CALL   TO    LOCATION    0008H,  */ 

/*    I.E.    THE    PC    VALUE    IS    STACKED,     AND    CONTROL   TRANS-  */ 

/"*    FERRED    TO    LOCATION    0008H.     DUE    TO    THIS    HARDWARE  */ 

/*    CHARACTERISTIC,    THE    USER   MUST   ENSURE   THAT   ANY   USER  */ 

/*   DEFINED   STACKS    ARE    AT   LEAST   FOUR   BYTES    LARGER   THAN  */ 

/*    THE   MAXIMUM  SIZE    REQUIRED    BY  THE    USER'S    OWN    CODE.  */ 

/*    SINCE    ALL    PERIPHERAL    DEVICES    CAUSE    EXECUTION    OF  */ 

/*    THE   SAME    INTERRUPT    INSTRUCTION,     SOME    MEANS    MUST   BE  */ 

/*    AVAILABLE    TO    DISTINGUISH    BETWEEN    DEVICES    WHENEVER  */ 

/*    AN    INTERRUPT   OCCURS.    THE    SYCOR   440    SOLVES    THIS  */ 

/*    PROBLEM  BY  DEFINING   AN    INTERRUPT   LEVEL   FOR  EACH  */ 

/■*    DIFFERENT   DEVICE.     THERE    ARE    17    INTERRUPT   LEVELS  */ 

/*    WITH    VALUES    RANGING   FROM   0    TO    16.     A   HIGHER   NUMERIC  */ 

/*    VALUE    ALSO    IMPLIES    A    HIGHER   PRIORITY   FOR   THE  */ 

/*    ASSOCIATED    DEVICE.     WHEN    AN     INTERRUPT   OCCURS    THE  */ 

/*    LEVEL    IS    AVAILABLE    ON    INPUT   LATCH   0.    SIMULTANEOUS  */" 

/*    INTERRUPTS    WILL    BE    INPUT   SEQUENTIALLY    IN    PRIORITY,  */ 

/*    I.E.    DESCENDING,    SEQUENCE    BY   LEVEL    NUMBER.     WHEN  */ 

/*    THE    LEVEL    READS    ZERO    ALL    PENDING    INTERRUPTS    HAVE  */ 

/*    BEEN    PROCESSED.     THE    INTERRUPT   LEVEL    ASSIGNMENTS  */ 

/*    WHICH    APPLY   TO    THE    CURRENT   NPS    SYCOR   440    HARDWARE  *• 

/*    CONFIGURATION    ARE    AS    FOLLOWS:  */ 

/*  */ 

/*                          LEVEL                        DEVICE  */ 

/*                           */ 

/*                             16                              DEBUGGER  */ 

/*                             15                            POWER   FAIL  */ 

/*                              14                             PARITY   CONTROL  */ 

/*                             1 1                              ASYNC    COMM  */ 

/*                             10                            TERMINAL    GROUP    0  */ 

/*                                8                             TIMER  */ 

/*                               6                            PRINTER   0  */ 

/*                                2                             FLOPPY   DISK  */ 

/*                               1                            CASSETTE  */ 

/*  */ 

/*    THIS    MODULE    CONTAINS    THE    CODE    USED    BY   MTS    TO    PRO-  */ 

/*    CESS    INTERRUPTS.     THIS    CODE    CONSISTS    OF    AN    INTER-  */ 

/*    RUPT   CONTROLLER   PLUS    A   SET   OF    INTERRUPT   HANDLER  */ 

/*    ROUTINES    -    ONE    ROUTINE    FOR   EACH    DEVICE.     THE    INTER-  */ 

/*    RUPT   CONTROLLER   SAVES    THE    CURRENT    ENVIRONMENT,  */ 

/*    IDENTIFIES   THE    INTERRUPT  LEVEL,    CALLS   THE   APPROP-  */ 

/*    RIATE   HANDLER   ROUTINE,    AND   THEN    RESTORES    THE  */ 

/*    ENVIRONMENT    BEFORE    RETURNING   TO    THE    INTERRUPTED  */ 

/*    PROGRAM.     THE   HANDLER    ROUTINES    ARE    TAILORED    TO    THE  */ 

/*    SPECIFIC    REQUIREMENTS    OF    DIFFERENT    DEVICES.     IN  */ 

/*    ORDER  TO    UTILIZE    THE    CODE    CONTAINED    IN    THE    INTER-  */ 

/*    RUPT   MODULE    IT    IS    NECESSARY   FOR   THE    MTS     INITIAL-  */ 

/*    IZATION    ROUTINE    TO    LOAD    A   JUMP    TO    THE    INTERRUPT  */ 

/*    CONTROLLER    IN    MEMORY   LOCATIONS    0008- 000 AH.  */ 

/*  */ 

/■*.  *■/ 


/*************     INTERMODULE    LINKAGE    MACROS    *************/' 

DECLARE   GLOB1    COMMON; 

[ INT  MB   M2B   TB] 

CMB:=0300H]        [TB:=1000H]        [M2B:=0600H] 

[MACRO    MONITOR    '[HEX   MB    +    0AAH]  '  ] 

[  MACRO    MOVBUF     ' C  HEX   M2B    +    41H]  ' ] 

C  MACRO    READSPRTSBUF    ' C HEX   M2B    +    9EH]  '  ] 

[MACRO    TERMSINPUT8CTRL    '[HEX   TB    +    733H]  '  ] 

[MACRO    BLINKSCURSOR    '[HEX  TB    +    803H]  '  ] 

[  MACRO    MTSSMSG    *  [  HEX  TB   +    837H]  ' ] 
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[ MACRO  PRTSSTAT  • GLOB 1(0)'] 

C  MACRO  BUFSPTR  ' GLOB 1(1)'] 

[MACRO  LOCK  ' GLOB1 ( 15H) ' ] 

[MACRO  TASKSTIMER  '  GLOBK  16H)  '  ] 

[MACRO  TASK  '  GLOBK  24  1H)  *  ] 

[ MACRO  PRTSCNTRL  *  GLOB  1 ( 39 EH)  ' ] 

[  MACRO  SWAPSSTACK  ' GLOB  1 ( 3B7H)  ' ] 

/************  INTERRUPT  PROCESSING  MACROS  *************/ 

[MACRO  LEVEL  '  IN(0)  '] 

[MACRO  DEBUGSLATCH  '0FFH'] 

[MACRO  CSSTSLATCH  '85H'] 

[MACRO  PRINTERSLATCH  '8AH'] 

[MACRO  PRTSCHAR  ' OUT( 8AH) = A* ] 

[MACRO  PRTSRDY  *0B0H'] 

[MACRO  CNTRLSZ  ' 1AH' ] 

[MACRO  TIMERSLATCH  '02H'] 

[MACRO  TERMINALSLATCH  '3EH'] 

[MACRO  MATRIXSLATCH  ' 3FH' ] 

[MACRO  INTSPENDING  ' ( A= [ LEVEL] NA)  IZERO'] 

[MACRO  DEBUGSINTSPENDING  '( A= [ LEVEL] ;  A: : 16)  ZERO'] 

/***#************  MODULE  DECLARATIONS  ********* «*******/ 

f INT  TOP  BLINK  EP]  [BLINK:=4]  [TOP:=30]  [EP:=TOP-10] 
DECLARE  INTSSTACK  DATA  (0,0,0,0,0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0); 
DECLARE  BLINKSTIMER  DATA  (1); 
DECLARE  SAVHL  DATA  (0,0); 
DECLARE  TN  DATA  (0); 

/-j**********:*:*********:*:  PROCEDURES  *********************/ 

DUMMYSHDLR:   PROCEDURE; 

/*  THIS  PROCEDURE  PROVIDES  A  COMMON  EMPTY  INTERRUPT  */ 

/*  HANDLER  FOR  THOSE  INTERRUPT  LEVELS  WHICH  SHOULD  *^ 

/*  NEVER  OCCUR  WITH  THE  CURRENT  NPS  SYCOR  440  HARD-  */ 

/*    WARE  CONFIGURATION.  ITS  ONLY  ACTION  IS  AN  IMMEDI-  */ 

/"*  ATE  RETURN.  */ 

/*   CALLED  BY:  INTERRUPTSCONTROLLER  */ 

RETURN; 

END  DUMMYSHLDR; 

DEBUGSHDLR:   PROCEDURE; 

/*  THIS  HANDLER  IS  INCLUDED  TO  ALLOW  USAGE  OF  THE  */ 

/*  SYCOR  340B  DEBUGGER  IN  THE  SOFT  DEBUG  MODE  WHEN  */ 
/*    RUNNING  UNDER  MTS .  IT  WAS  DISCOVERED  DURING  DEVEL-  */ 

/■*    OPMENT  AND  TESTING  THAT  THE  DEBUGGER  IS  LARGELY  */ 

/*  UNRELIABLE  IN  THE  SOFT  MODE.  THIS  IS  APPARENTLY  */ 

/*  DUE  TO  HARDWARE  CHANGES  IN  THE  440  SYSTEM  MADE  */ 

/*  AFTER  THE  DEBUGGER  WAS  DESIGNED.  *s 

/-*  CALLED  BY:  INTERRUPTSCONTROLLER  */ 

s*    DISPLAY  ENVIRONMENT  ON  DEBUGGER  *s 

HL=2+SP; 

M(6H)  =  (A=L);  M(  7H)  =  (  A=  H)  ; 

s*    ACKNOWLEDGE  DEBUG  INTERRUPT  *• 

OUT( [ DEBUGSLATCH] )  =  (  A= 1 )  ; 

/*    CPU  IDLES  WHILE  WAITING  FOR  DEBUGGER  TO  */" 

/%    INITIATE  RESUMPTION  OF  EXECUTION         */ 

DO  WHILE  [DEBUGSINTSPENDING]; 

END; 
END  DEBUGSHDLR; 

CASSETTES HDLR:   PROCEDURE; 

OUT( [ CSSTSLATCH] ) = ( A= 10H) ; 
END  CASSETTESHDLR; 

PRINTERSHDLR:   PROCEDURE; 
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/*  THE  PRINTER  INTERUPT  HANDLER  INPUTS  THE  PRINTER  */ 
/*  STATUS.  IF  THE  CONTROL  BYTE  INDICATES  THAT  NO  TASK  IS  */ 
/*  CURRENTLY  ALLOCATED  THE  PRINTER,  NO  ACTION  IS  TAKEN.  */ 
r*  HOWEVER,  IF  A  TASK  IS  ALLOCATED  THE  PRINTER  AND  THE  */ 
/*  DEVICE  IS  NOT  READY  THEN  THE  MESSAGE  'PRINTER  NOT  RDY'  */ 
/*  IS  DISPLAYED  AT  THE  USER'S  TERMINAL;  OTHERWISE  A  */ 
/*  CHARACTER  FROM  THE  PRINT  BUFFER  LOCATED  AT  100H  IS  */ 
/*  OUTPUT  TO  THE  PRINTER.  THIS  PROCESS  CONTINUES  UNTIL  */ 
/*  AN  END  OF  FILE  CHARACTER  HAS  BEEN  OUTPUT  TO  THE  */ 
/*  PRINTER  AT  WHICH  TIME  THE  DEVICE  IS  RELEASED  FOR  USE  */ 
/*  BY  ANOTHER  TASK.  */ 

/*  CALLED  BY:  INTERRUPTSCONTROLLER  */ 

A= IN( [ PR INTERS LATCH] ) ; 

CPRT$STAT]=A; 

OUT(  [PRINTERS LATCH]  )  =  (A=80H)  ;  /*   CLEAR  PRINTER  INTERUPT  */ 

IF  ( A= [ PRTSSTAT] ;  A: : E PRTSRDY] )  'ZERO  THEN 

DO;   /*  PRINTER  NOT  READY  */ 

IF  < A= [ PRTSCNTRL] ;  A::0)  TZERO  THEN 
DO;   /*  GET  TASK  *  FOR  ERROR  MESSAGE  */ 
TN=  (  A=  C  TASK]  )  ; 

[TASK)  =  (A=[  PRTSCNTRL]  8  03H)  ; 
E=7;   CALL  [  MTSSMSG]  ; 
CTASK]  =  (  A=TN)  ; 

C PRTSCNTRL] =( A=0) ;  /*  RESET  PRINT  CONTROL  */ 
RETURN; 
END; 
END 
ELSE 

DO;  S*    PRINTER  IS  READY  FOR  CHARACTER  OUTPUT  */ 
IF  ( A=<[ PRTSCNTRL] ;  A=<A)  CY  THEN 
DO; 

HL= [ BUFSPTR] ; 

IF  (A=3;  A::H)  ZERO  Q    (A=0;  A::L)  ZERO  THEN 
DO;  /*  END  OF  PRINT  BUFFER,  GET  NEXT  SECTOR  */ 
CALL  [READSPRTSBUF]  ; 
[ BUFSPTR] = ( HL= 100H) ; 
END; 

IF  (A=M(HL);   A:  :  C  CNTRLSZ]  )  'ZERO  THEN 
DO;  /*  PRINT  OUT  CHARACTER  */ 
[ PRTSCHAR] ; 

[  BUFSPTR]  =  (HL=[  BUFSPTR]  ,  +1); 
/*  BUFSPTR  INCREMENTED  */ 
RETURN; 
END 
ELSE 

/*  EOF  ENCOUNTERED,  RESET  PRINTER  */ 
[ PRTSCNTRL] = ( A=0) ; 
END; 
END; 
END  PRINTERSHDLR; 

TIMERSHDLR:   PROCEDURE; 

/*  THE  TIMER  INTERRUPT  HANDLER  MANAGES  THE  TWO  FUNC-  */ 
/*  TIONS  OF  MTS  WHICH  OCCUR  AT  PERIODIC  INTERVALS:  */ 
/*  BLINKING  THE  TERMINAL  CURSORS  AND  RETURNING  CONTROL*/ 
/*  TO  THE  SYSTEM  WHEN  A  TASK'S  TIMESLICE  EXPIRES.  IN  */ 
/*  ORDER  TO  KEEP  TRACK  OF  THE  TWO  INTERVALS  INVOLVED,  */ 
/*  THE  PROCEDURE  MAINTAINS  TWO  COUNTERS.  THESE  COUN-  */ 
/*  TERS  ARE  EACH  SET  TO  AN  INITIAL  VALUE  AND  THEN  */ 
/*  DECREMENTED  EACH  TIME  A  TIMER  INTERRUPT  OCCURS.  */ 
/*  THE  ACTUAL  VALUE  CONTAINED  IN  EITHER  COUNTER  AT  ANY*/ 
/*  INSTANT  REPRESENTS  THE  TIME  REMAINING  IN  THE  INTER-*/ 
/*  VAL  IN  MULTIPLES  OF  50MS  SINCE  THIS  IS  THE  FIXED  */ 
/*  INTERVAL  BETWEEN  TIMER  INTERRUPTS.  WHEN  THE  TASKS  */ 
/*  TIMER  COUNTER  HAS  BEEN  DECREMENTED  TO  ZERO,  CONTROL*/ 
/*  IS  TRANSFERRED  TO  THE  MONITOR  WHERE  THE  CURRENT  */ 
/*  TASK  IS  SWAPPED  OUT  AND  A  NEW  TASK  SWAPPED  IN.  */ 
/*  WHEN  THE  BLINKSTIMER  COUNTER  REACHES  ZERO  THE  */ 
/*  BLINKSCURSOR  PROCEDURE  IS  CALLED.  IN  EITHER  CASE  */ 
/*  THE  TIMER  HANDLER  RESETS  THE  COUNTER  TO  ITS  I NIT-   */ 
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/•*    IAL   VALUE   AND   CONTINUES.  */- 

/*   CALLED  BY:     INTERRUPTSCONTROLLER  */ 

C  TASK8TIMER]  =  (  A=  [  TASKSTIMER]  - 1  >  ; 
BLINK8TIMER=(  A=  BL I NKST I MER- 1 )  ; 

IF    (A::0)    ZERO   THEN      /*   BLINK    INTERVAL   EXPIRED   */ 
DO; 

CALL    [BLINKSCURSOR] ; 
BLINKSTIMER=(A=[BLINK3 )  ; 
END; 
OUT( [TIMERS LATCH] )=(A=0) ;       /*    RESET  TIMER  */ 
IF    ( A=[ TASKSTIMER] ;    A::0)    ZERO   THEN 
DO;       /*    TIMESLICE    EXPIRED   */ 
IF    (A=>  CLOCK])     !CY  THEN 

DO;       /*    SWAPPING   UNLOCKED   */ 
BCM0;    DE=. INTSSTACK([EP]) ; 
RL= . C  SWAPSSTACK]  ; 
CALL    [MOVBUF]  ; 
ENABLE; 

GOTO    [MONITOR]  ; 
END 
ELSE    [  TASKSTIMER]  =  (A=1>  ; 
END; 
END    TIMERSHDLR; 

TERMINALSHDLR:       PROCEDURE; 

/*    THIS    PROCEDURE    PROCESSES    THE    INTERRUPT   GENERATED  */ 

/*    FROM   ANY   KEY   DEPRESSION    AT    ANY   OF    THE    TERMINALS.  */ 

/*    IT   GETS   THE   TERMINAL    IDENTITY  AND    THE    KEYBOARD  */ 

/*    MATRIX   CODE    AND    THEN    CALLS    TERMINALS  I NPUTSCONTROL  */ 

/*    TO   PROCESS    THE    KEY.  */ 

/*    OUTPUT:    C    -    MATRIX  CODE  */ 

s*  E    -    TERMINAL    NUMBER  */ 

/*    CALLED   BY:     INTERRUPTSCONTROLLER  */ 

/   *t*  *ft  «t*  5f*  *r»  3p  *n  3p  !p  *f»  3p  *f»  *7t  *f*  3p  *r*  3f5  *ft  »f*  »f"  *r»  ^*  *f^  3n  *r>  *r»  !f*  *f*  3p  *J*  *p  5fS  3p  *!•  *n  ^*  *W  ^^  ^^  ■(•  *l*  ^^  ^^  ^^       *p  ^^  ^^  *S  *t*  *t*  *r»  *r*Jfi  • 

/*   READ   TERMINAL    IDENTITY   */ 

E=(A= IN([TERMINALSLATCH])     3    03); 

S*    WRITE    TERMINAL    NUMBER   BACK   OUT   TO    CAUSE    *• 

/*    THE    APPROPRIATE    KEYBOARD    DATA    REGISTER      */ 

/%    TO    BE   SELECTED   FOR  READING.  */ 

OUT( [ TERMINALSLATCH] )  =  A; 

/•*    READ   THE    KEYBOARD   MATRIX  CODE    */ 

C=  (  A= INC [ MATRIXSLATCH] ) )  ; 

/*   PROCESS    KEY  */ 

CALL    [ TERMS  I NPUTSCTRL]  ; 

END   TERMINALSHDLR; 


INTERRUPTSCONTROLLER:       /*    MAIN    ENTRY    INTO    INTMOD    */ 
/*    SAVE   CURRENT   VALUE   OF    STACK  POINTER   AND   */ 
S*    ALL    REGISTERS     IN    INTSSTACK  */ 

SAVHL=HL;    STACK=PSW; 
HL=2+SP;    PSW= STACK; 
SP= .  INTSSTACKC  [  TOP] )  ; 


STACK=  HL 
HL=SAVHL 
STACK=  HL 
STACK=  DE 


/*    PUSH   CURRENT  STACK  PTR   */ 


/*    PUSH   ORIGINAL   CONTENTS    OF    HL   */ 
STACK=  BC ;    STACK=  PSW; 
DO    WHILE    [  INTSPENDING]  ; 

H=(A=0);    L= ( A= [ LEVEL] ) ; 
DO   CASE   HL; 
/*      0    */      CALL    DUMMYSHDLR; 

CALL  CASSETTESHDLR; 
CALL  DUMMYSHDLR; 
CALL  DUMMYSHDLR; 
CALL  DUMMYSHDLR; 
CALL  DUMMYSHDLR; 
CALL  PRINTERSHDLR; 
CALL  DUMMYSHDLR; 
CALL  TIMERSHDLR; 
CALL  DUMMYSHDLR; 
CALL    TERMINALSHDLR; 
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/* 

1 

*/ 

/■*■ 

2 

*/ 

/■*■ 

3 

■*/ 

/•*. 

4 

*/ 

sx 

3 

*/ 

/■*■ 

6 

*/ 

/*. 

7 

*/ 

/■*■ 

8 

*/ 

/■*. 

9 

*/ 

/*. 

10 

*/ 

/* 

11 

*/ 

/* 

12 

*/ 

/* 

13 

*/ 

/■* 

14 

*/ 

/* 

15 

*/ 

/"* 

16 

*/ 

CALL  DUMMYSHDLR; 

CALL  DUMMYSHDLR; 

CALL  DUMMYSHDLR; 

CALL  DUMMYSHDLR; 

CALL  DUMMYSHDLR; 

CALL  DEBUGSHDLR; 
END;  /*  CASE  */ 
END;  /*■  WHILE  */ 

/"*  RESTORE  ORIGINAL  VALUE  OF  STACK  POINTER  AND  */ 
/*  ALL  REGISTERS  FROM  INTSSTACK  */ 

PSW=STACK;  BC=STACK;  DE=STACK;  HL= STACK; 
SAVHL=HL;  HL= STACK; 
SP=HL;  HL=SAVHL; 
ENABLE; 
RETURN; 
/*  END  INTERRUPTSCONTROLLER  */ 


EOF 
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/*  MONITOR  MODULE  */ 

/*  *./ 

/*  THE  MONITOR  MODULE  CONTAINS  THOSE  FUNCTIONS  OF  MTS  *■/ 

/-*  WHICH  DEAL  WITH  PROCESSOR  MANAGEMENT.  SUCH  FUNC-  */ 

/*  TIONS  INCLUDE  THE  INITIAL  PROGRAM  LOAD,  SYSTEM  */ 

/"*  RECOVERY,  SCHEDULING,  CPU  ALLOCATION,  AND  SWAPPING.*/ 

/*  THE  MODULE  IS  DIVIDED  INTO  THREE  BASIC  SUBMODULES.  */ 

/*  */ 

/*  (I)  UTILITY  PROCEDURES  */ 

/*  THIS  SUBMODULE  CONTAINS  GENERAL  PURPOSE  */ 

/*  UTILITY  PROCEDURES  WHICH  PERFORM  OPERATIONS  */ 

/*  FREQUENTLY  REQUIRED  IN  THE  MONITOR,  INTERRUPT  */ 

/*  AND  SERVICE  MODULES.  */ 

/*  *  INDEX               *  PUT  */ 

/*  *  INDEX2             *  GET  */ 

/-*  *  INDEX4              *  MOVBUF  */ 

/*  *  INDEX8             *  MINIDISK  */ 

/*  *  READSPRTSBUF  */ 

/*  #/ 

/*  (2)  TASK  MANAGEMENT  */ 

/*  THIS  SUBMODULE  CONTAINS  THE  SCHEDULING,  CPU  */" 

/*  ALLOCATION,  AND  SWAPPING  PROCEDURES.  IT  ALSO  */ 

/*  INCORPORATES  THE  MECHANISM  FOR  RECORDING  THE  */ 

/*  SYSTEM  STATE  BLOCK  WHEN  THE  SYSTEM  STATE  */ 

/*  CHANGES,  THUS  MAKING  RECOVERY  POSSIBLE.  */ 

/*  CONTROL  PASSES  TO  THE  TASK  MANAGEMENT  */ 

/*  SUBMODULE  AFTER  MTS  HAS  BEEN  INITIALIZED  BY  */ 

/*  THE  IPL  SUBMODULE.  */ 

/*  *  MONITOR            *  SWAP  */ 

/*  *  BUMPSTASK          *  WRITESREC  */ 

/*  *  BOOTSTRAP          *  RESUME8EXECUTION  */ 

/*  */ 

/*  (3)  INITIAL  PROGRAM  LOAD  */ 

/■*  THIS  SUBMODULE  CONTAINS  ALL  PROCEDURES  WHICH  */ 

/*  DEAL  WITH  THE  LOADING  PROCESS  AFTER  THE  MTS  */ 

/"*  OBJECT  MODULE  HAS  BEEN  LOADED  INTO  MEMORY  BY  */ 

/*  THE  SYCOR  SYSTEM  LOADER.  THE  PRIMARY  FUNCTION  */ 

/*  OF  THE  IPL  SUBMODULE  IS  SYSTEM  INITIALIZATION  */ 

/*  OR  RECOVERY,  AS  REQUIRED.  IN  ORDER  TO  MINI-  */ 

/*  MIZE  THE  MEMORY  REQUIREMENT  OF  THE  RESIDENT  */ 

/*  MTS  CODE,  THIS  SUBMODULE  WAS  WRITTEN  AS  A  */ 

/*  STANDALONE  PROGRAM  LOADED  INTO  THE  USER  SWAP  */ 

/*  AREA.  ONCE  IPL  IS  COMPLETE.  THE  PROGRAM  MAY  */ 

/*  BE  OVERLAYED  BY  USER  PROGRAMS.  */ 

/*  *  ABORTS IPL           *  READSD I RECTORY  */ 

/•*.  *  SEARCH8D I RECTORY   *  RECOVER  */* 

/*  *  INITIALIZE         *  MTSSIPL  */ 

/*  *  REC0VER8STATUS8LINE  */ 

/*  */ 

/*  THE  MONITOR  MODULE  REQUIRES  ACCESS  TO  SEVERAL  */ 

/"*  FILES  WHICH  RESIDE  ON  THE  MINI-DISK  IN  SYCOR  */ 

/*  FORMAT.  THESE  FILES  AND  THEIR  FUNCTION  ARE:  */ 

/*  */ 

/*  (1)  . MTSSWPO , . MTSSWP 1 , . MTSSWP2 , . MTSSWP3  */ 

/■*  ASSOCIATED  WITH  EACH  OF  THE  FOUR  TERMINAL  */" 

/*  TASKS  IS  A  FILE  USED  TO  STORE  A  CORE  IMAGE  */ 

/*  OF  THE  TASK  WHEN  IT  IS  INACTIVE  OR  BLOCKED.  */ 

/*  THIS  SWAP  IMAGE  CONSISTS  OF  A  SYSTEM  AREA  */ 

/*  WHERE  THE  ENVIRONMENT  AND  VIRTUAL  DEVICE  */ 

/■*  CONTROL  BLOCK  IS  STORED,  AND  A  USER  AREA  */ 

/*  CONTAINING  THE  USER  PROGRAM'S  MEMORY  IMAGE.  */ 

/-*  THE  MAXIMUM  SWAP  IMAGE  SIZE  IS  48K  BYTES.  */ 

/*  THEREFORE,  EACH  SWAP  FILE  SHOULD  NORMALLY  BE  */ 

/*  96  MINI-DISK  SECTORS  LONG.  IN  THE  EVENT  THAT  */ 

/*  MINI-DISK  SPACE  IS  LIMITED  AND  THE  ENTIRE  48K  */ 

/*  IS  NOT  REQUIRED  FOR  USER  PROGRAMS,  MTS  WILL  */ 

/*  AUTOMATICALLY  ADJUST  TO  ANY  FILE  SIZE  GREATER  */ 

/*  THAN  16K  (32  SECTORS).  THE  FOLLOWING  SYCOR  */ 

/%  COMMAND  MAY  BE  USED  TO  CREATE  A  SWAP  FILE:  */ 

/*  CREATE  <FILENAME>  N=96  */ 

/*  THE  SYCOR  SYSTEM  DOES  NOT  ALLOW  DYNAMIC  */ 
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/*  CHANGES  IN  FILE  SIZE  OR  ATTRIBUTES;  THUS,  IN  */ 

/*  ORDER  TO  CHANGE  THE  FILE  SIZE,  THE  FILE  MUST  */ 

/*  FIRST  BE  DELETED  (DELETE  <FILENAME>)  AND  THEN  */ 

/-*  RECREATED  WITH  THE  DESIRED  SIZE.  IF  SWAP  */ 

/*  FILES  SMALLER  THAN  48K  ARE  DESIRED,  THE  VALUE  */ 

/*  OF  N  IN  THE  CREATE  COMMAND  STRING  SHOULD  BE  */ 

/*  TWO  TIMES  THE  REQUIRED  PROGRAM  SPACE  IN  */ 

/*  KILOBYTES.  */ 

/*  THE  FOUR  SWAP  FILES  ARE  ONLY  REQUIRED  WHEN  */ 

/*  MTS  IS  ACTUALLY  RUNNING,  OR  BETWEEN  RUNS  IF  */ 

/*  RECOVERY  WILL  BE  REQUESTED.  */ 

/*  */ 

/*   (2)  .MTSCNFG  */ 

/*  THE  VIRTUAL  FLOPPY  DISK  CONFIGURATION  FILE  */ 

/*  PROVIDES  THE  MAPPING  BETWEEN  THE  VIRTUAL  DISK  */ 

/*  NUMBER  (0-31)  AND  THE  NAME  OF  A  SYCOR  FILE  */ 

/*  WHICH  CONTAINS  A  FLOPPY  DISK  IMAGE.  THE  CON-  */ 

/"*  FIGURATION  FILE  ALSO  CONTAINS  THE  PROTECTION  */ 

/*  ATTRIBUTES  OF  THE  VIRTUAL  DISKS.   A  */ 

/*  PHYSICAL  FLOPPY  DISK  HAS  A  FIXED  CAPACITY  OF  */ 

/*  256 K  BYTES,  WHERE  AN  MTS  VIRTUAL  FLOPPY  DISK  */ 

/*  MAY  HAVE  ANY  CONVIENT  SIZE  UP  TO  256 K  BYTES.  */" 

/*                         THE  SYSTEM  ASSUMES  THAT  THE  */ 

/*  DISK  IMAGE  IS  STORED  SEQUENTIALLY  ON  THE  */ 

/*  MINI-DISK  STARTING  WITH  TRACK  0  SECTOR  1  AND  */ 

/*  PROCEEDING  THROUGH  26  SECTORS  OF  TRACK  0  TO  */ 

/*  TRACK  1  SECTOR  0,  ETC.  SPECIFYING  A  VIRTUAL  */ 

/*  DISK  FILE  SMALLER  THAN  256K  BYTES  MEANS  THAT  */ 

/■*  FEWER  THAN  77  TRACKS  WILL  BE  ADDRESSABLE.  */ 

/*  THE  CONFIGRATION  FILE  CONTAINS  32  THIRTEEN  */ 

/*  BYTE  RECORDS  IN  THE  FOLLOWING  FORMAT:  */ 

/*                */ 

/*                I  FILENAME  I  KEY  I  P  I  */ 

/*               */ 

/*                 0         7  8   11   12  */ 

/*  WHERE  'FILENAME'  IS  THE  0-8  BYTE  NAME  OF  THE  */" 

S*  VIRTUAL  DISK  FILE  AS  IT  APPEARS  IN  THE  SYCOR  */ 

/*  DIRECTORY;  'KEY'  IS  A  0-4  BYTE  PROTECTION  */ 

/*  KEY;  AND  'P*  IS  THE  PROTECTION  ATTRIBUTE  OF  */" 

/*  THE  DISK,  I.E.  'P'  FOR  READ/WRITE  PROTECTION,  */ 

/*■  *R'  FOR  WRITE  PROTECTION  ONLY,  AND  BLANK  FOR  */" 

/*  NO  PROTECTION.  */ 

/*  THE  CONFIGURATION  FILE  WILL  BE  UPDATED  BY  THE  */ 

/*  MTS  SYSTEM  COMMANDS  PROTECT,  UNPROTECT,  AND  */ 

/*  RESTRICT.   IN  */ 

/*  THE  EVENT  THAT  .MTSCNFG  IS  ERRONEOUSLY  *S 

/*  DELETED,  THE  FILE  MAY  BE  RECREATED  BY  USING  */ 

/-*  THE  SYCOR  COMMAMDS  *S 

/*               CREATE  . MTSCNFG  N= 1  */ 

/*               RUN  BATCH  1=/CSST  3=  .  MTSCNFG  */•" 

/■*  WITH  THE  CASSETTE  LABELED  ".MTSCNFG''  */ 

/*  MOUNTED  ON  THE  CASSETTE  DRIVE.  */ 

/*  */ 

/*   (3)  .MTSRCVR  */ 

/*  THE  RECOVERY  FILE  CONTAINS  A  COPY  OF  THE  */ 

/*  SYSTEM  STATE  BLOCK  AS  OF  THE  LAST  SWAP.  THE  */ 

/*  FILE  IS  ONLY  REQUIRED  WHEN  MTS  IS  ACTUALLY  */ 

/*  RUNNING,  OR  BETWEEN  RUNS  IF  RECOVERY  WILL  BE  */ 

/*  REQUESTED.  THE  FOLLOWING  SYCOR  COMMAND  IS  */ 

/*  USED  TO  CREATE  THE  FILE:  */ 

V*               CREATE  .MTSRCVR  N=2  */ 

/*  */ 


/******************  TASK  MANAGEMENT  *******************/ 
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/*************    INTERMODULE   LINKAGE   MACROS    *************/ 

[INT  TB  M2B   GB]     [TB:  =  1000H]     [  M2B:  =0600H]     [GB:=0] 

[MACRO   MCP    ' 1A00H'] 

[MACRO   MTS    '  1F00H'] 

[MACRO    INDEX    '[REX  M2B   +    3H]  ■  ] 

[MACRO    INDEX2    '[HEX   M2B    +    0DH]  '  ] 

[MACRO    INDEX8    '[REX  M2B   +    24H]  '  ] 

[  MACRO   GET    *  [  HEX  M2B   +    38H]  '  ] 

[MACRO    MINISDISK    *  [  HEX   M2B    +    54H] * ] 

[  MACRO   MTSSMSG    '  [  REX  TB   +    837H]  '  ] 

[MACRO    READSTERMINAL    '[REX   TB    +    8DCH]  '  ] 

[ MACRO   GETSTERMSSTATUS    ' [ HEX  TB   +    2F9H] ' ] 

[  MACRO   LOCK    '  M(  [  HEX  GB   +    3C54H]  )  ■  ] 

[MACRO   TASKSTIMER    '  M(  [  HEX  GB    +    3C55H]  )  '  ] 

[MACRO   SYSSSTACKSTOP    '[REX  GB   +    3C6AH  +    20]'] 

[  MACRO   TASKSADDR    '  [  HEX   GB    +    3E80H]  ' ] 

[  MACRO    TASK    '  M(  [  TASKSADDR]  )  '  ] 

[MACRO    REC8FILE    '[REX  GB    +    3E81H]  '  ] 

[ MACRO  TCTSSTATUS    '  [  HEX  GB   +    3E85H]  ' ] 

[ MACRO   TCTSDM    *  [  HEX  GB   +    3E89H] ' ] 

[MACRO    TCT3SIZE    '[REX   GB    +    3EA9H]  *  ] 

[ MACRO    TCTSBOE    '  [  REX  GB    +    3EADH]  ' ] 

[ MACRO    DMTSBOE    '  [  HEX   GB    +    3EDDH]  " ] 

[MACRO    VDCSDRIVE    '[REX   GB    +    3FEDH]  '  ] 

[MACRO   SWAPSSTACK    '[REX   GB    +    3FF6H]  '  ] 

[ MACRO    SWAPSSTACK1     ' M(  [  HEX   GB    +    3FF7H3 )  * ] 

/*    .MDBUF    =    3C7EH   USED    IN    WRITESREC  */ 

/jc**************    GENERAL    PURPOSE    MACROS    *********»**:***/' 

[ INT  MEMSBASE   TOP   TIMESLICE] 

[MEMS BASE :=4000H]        [ TIMESLICE: =4]        [TOP: =20] 

[  MACRO   READ    ■ 1 ' ] 

[MACRO   WRITE    '2'] 

[MACRO    BUMP    *-2' ] 

[MACRO   DISKSERROR    '(A::0)     !ZERO' ] 

[MACRO   HARDWARES ERROR    '8'] 

[MACRO    INPUTSWAITING    '0FFH'] 

[MACRO    IN    '  [READ]  '] 

[MACRO   OUT    '[WRITE]'] 

/ik***************    MODULE    DECLARATIONS    ***************:**/' 

DECLARE    (MONITOR,    BOOTSTRAP,    RESUMESEXECUTION)    LABEL; 

DECLARE   CONTINUE    LABEL; 

DECLARE    DIR  DATA    (0); 

DECLARE   SAVHL   DATA   (0,0); 

DECLARE    I    DATA    (0) ; 

DECLARE   TN    DATA    (0); 

DECLARE    RSTSFLAG    DATA    (0); 

/I******:*******;):*;****:*::*:  PROCEDURES  5S********************/ 
BUMPSTASK:       PROCEDURE; 

/     'ft  5ft  3ft  3ft  3fC  3ft  3ft  3f»  3ft  3ft  3ft  3ft  3ft  3ft  5ft  5ft  *ft  *ft  5ft  3ft  5ft  5ft  5ft  5ft  5ft  3ft  tf>  3ft  3ft  *K  »ft  3ft  3ft  3ft  /ft  5ft  5ft  »ft  5rt  »K  5f*  *f»  *ft  3ft  5ft  5ft  5ft  5ft  5ft  3ft  3ft  3ft  3ft  5ft  / 

/*  THIS  PROCEDURE  DELETES  A  TASK  FROM  THE  SYSTEM  WHEN  */ 
/-*    AN    IRRECOVERABLE    MINI-DISK   ERROR   OCCURS.  */ 

/*    CALLED    BY:    SWAP,     BOOTSTRAP  */ 

C=[BUMP];    CALL    [MTS]; 

E=  [  HARDWARES ERROR]  ;     CALL    C  MTSSMSG]  ; 

END    BUMPSTASK; 

SWAP:       PROCEDURE; 

^  5ft  5t^  5ft  5ft  5*C  ;ft  5ft  5^C  ,f^  if<  5ft  5#t  5ft  ^^t  3r*C  3ft  5ft  ^  3ft  3ft  »fC  Sfv  3?^  3ft  3fX  5ft  3ft  5ft  .""ft  5ft  5fC  ;^t  5f^  -K  3fC  3ft  3ft  5^C  ,;X  3K  *"K  3^  3^t  3ft  rft  3ft  3ft  3fC  3fX  3ft  5ft  5#t  3fC3fC  f 

/*  THIS  PROCEDURE  SWAPS  A  TERMINAL  TASK  BETWEEN  MEMORY*/ 
/*  AND  THE  APPROPRIATE  MINI-DISK  SWAP  FILE.  THE  DIR-  */" 
/*  ECTION  OF  THE  SWAP,  I.E.  IN  OR  OUT,  IS  DETERMINED  */ 
/*    BY  THE    VALUE    OF    THE    VARIABLE    DIR.     THE  */ 

'*  PROCEDURE  ALSO  MODIFIES  TCTSSTATUS  TO  REFLECT  THE  */ 
/*    CURRENT   LOCATION    OF    THE    SWAP    IMAGE.  */ 
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/*    INPUT:    DIR  -    DIRECTION   OF   SWAP  */ 

/*  1    =    IN  */ 

/*  2    =    OUT  */ 

/*   CALLED   BY:    MONITOR  */ 

/*    SET    I    TO   SWAP    IMAGE   SIZE    */ 

DE=[TCTSSIZE]  ;     A=  [  TASK]  ;    CALL    [  INDEX!  ; 

I=(  A=M(HL)  )  ; 

/*    MODIFY  TCTSSTATUS    */ 

HL=  C  TCTSSTATUS] +BC ; 

M(HL>  =  (  A=M(HL)     \\    0C0H) ; 

/*    SET   UP    REGISTERS    FOR  DATA   TRANSFER  */ 

DE= C TCTSBOE] ;     A= [ TASK] ;    CALL    [ INDEX2I ;    CALL    C GET] ; 

DE=[  VDCSDRIVE] ;     /*    SWAP    BASE   */      A= I ; 

DO   WHILE    (A::0)     ?ZERO; 

L=(A=DIR);    CALL    [  MINISDISK]  ; 
IF    [DISKSERROR]    THEN 

DO;       /■*    BUMP    TASK   OFF    SYSTEM  */ 

CALL    BUMPSTASK; 

IF    (A=DIR;     A:: [IN])     ZERO    GOTO    MONITOR; 

RETURN; 

END; 
BC=BC+1;     DE=(HL=200H+DE) ; 
I=(A=I-1)  ; 
END;       /*    WHILE   */ 
END   SWAP; 

WRITESREC:       PROCEDURE; 

/  5fC  ZfZ  7f\  ifZ  2f»  *f«  *f»  ?ft  ij\  5fs  ijZ  efZ rfZ  5f*  »f»  TjZ  ^f!  3f»  *fZ  rj\  rfZ  3^  *N  *f»  *n  3p  3p  *r*  *f»  t>  *f*  »<■»  *J*  *r*  ^r*  »r»  3p  *f»  *fC  if;  ^  *f! 3p»  2f%  »f»  ^jC  ;£  *r»  if!  t-  *p  *r*  *f»  !f!  • 

/■*    THIS    PROCEDURE    COPIES    THE    CONTENTS    OF    THE    SYSTEM  */ 

/*    STATE    BLOCK  TO    THE    RECOVERY   FILE.     THE    VARIABLE  */ 

/*    RECSFILE    MUST   BE   SET   TO    THE    FILE'S    SECTOR   ADDRESS  */ 

/*    BEFORE    CALLING   WRITESREC.  */ 

/*    CALLED    BY:     BOOTSTRAP,     RESUMESEXECUTION  */ 

HL=[REC$FILE] ; 

DE=3C7EH;    /*    ADDRESS    OF   THE   BASE   OF    SSB   */ 

C=(  A=M(HL)  )  ;       HL=HL+1;       B=(A=M(HL)); 

L=[WRITE];     CALL    [MINISDISK]; 

IF    [DISKSERROR]     THEN 

DO;     DISABLE;     HALT;     END; 
BC=BC+1;     DE=(HL=200H+DE) ; 
L=CWRITE];     CALL    [MINISDISK]; 
IF    [DISKSERROR]    THEN 

DO;     DISABLE;     HALT;     END; 
END    WRITESREC; 

MONITOR: 

/*    THIS    ROUTINE    IS    THE    TASK   MANAGER  OR   SCHEDULER  */- 

/*    WHICH   CONTROLS    THE    ALLOCATION    OF    THE    CPU   TO    COM-  */ 

/*    PETING   TERMINAL    TASKS.        IT   PERFORMS    THIS    FUNCTION  */ 

/"*    BY   SEQUENTIALLY   SCANNING    THE    TCTSSTATUS    BYTE  */ 

/*    ASSOCIATED    WITH    EACH   TERMINAL    LOOKING    FOR   A   TASK  */ 

r*    REQUIRING   THE    CPU.       THE    EFFECT   PRODUCED    IS    THAT  *• 

/*    OF    A   ROUND-ROBIN   SCHEDULING   ALGORITHM.       WHILE   THE  */ 

/*    MONITOR    IS    LOOPING,     IT    INITIATES    SWAPPING    AS  */ 

/*    REQUIRED.  */ 

/•*   CALLED   BY:    MTSSIPL,    TERMSBLOCK   (SVC    MOD),    SWAP,  */ 

/*    TIMERSHDLR    (INT    MOD),     BOOTSTRAP,     QUIT    (SVC    MOD)  */" 

/  JfC  *K  *f»  *f»  •f*  *r>  *p  *P  *f*  *P  *r»  *p  *t*  »r*  "T*  3p  3R  !p  if*  *f*  3p  *r*  *r-  -N  *t^  !p  3n  3p  'f*  'C  'fc  *S  •  •*  -^  3p  *r*  *>'  ^^  *f^  *P  *p  ^^  3p  *P  *r*  *r*  ^P  *r*  *t*  *f*  *P  ^P *P*f*  / 

SP=[SYSSSTACKSTOP] ;       •*    SET   STACK  POINTER   */ 

/*    LOCK  OUT   SWAPPING    */ 

[  LOCK]  =  (  A=  C  LOCK]    \    01H); 

/"*    INITIALIZE    RESTART   FLAG   */ 

RSTSFLAG=(A=0)  ; 

/*    INITIALIZE    TEMP    TASK   COUNTER   */ 

TN=  (  A=  [  TASK]  )  ; 

LOOP:       /*    SEARCH   FOR   READY  TASK   */ 

TN=(A=TN+1,     803H) ;     /*     INCREMENT   TASK   NUMBER   */ 

/*    TEST   FOR    INACTIVE    TASK   */ 

DE=  [  TCTSSTATUS]  ;     CALL    [INDEX];     A=M(HL); 

IF    (A::0)    ZERO    GOTO    LOOP; 
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/*   TEST  BIT  0   -    BOOTSTRAP   LOAD   */ 
IF    (A=>A)    CY  THEN 
DO; 

DE= [ TCTSSTATUS ] ;     A=  C  TASK]  ;    GALL    [INDEX!; 
IF    (A=<M(HL))    CY 

8    (B=(A=TN>;     A=[TASK]-B)     'ZERO   THEN 
DO;     DIR=(A=COUT] ) ;     CALL    SWAP;     END; 
CTASK]  =  (A=TN)  ; 
GOTO    BOOTSTRAP; 
END; 
/*    TEST   BIT    1    -    MCP    */ 
IF    (A=>A)    CY  THEN 
DO; 

A=CTASKI;    STACK=PSW;       /*    SAVE   OLD   TASK   NR   */ 
CTASK]  =  (A=TN)  ;    CALL    [MCP]; 
DE= [ TCTSSTATUS] ;     A=TN;     CALL    [INDEX]; 
M(  HL)  =  (  A=  M(  HL)       8    0FDH)  ; 

/*    RESET   BIT    1    */ 
PSW=  STACK;     [  TASK]  =  A ; 

s*    RESTORE    OLD    TASK   NR   */ 
TN=(A=TN-1,     803H) ;     GOTO    LOOP; 

/*    CONTINUE    WITH   TASK   AFTER   */ 
/*    SYSTEM   CALL    PROCESSED  */ 

END; 
/*    SKIP    BIT   2    -    NOT   USED    */ 
A=>A; 

/*    SKIP    BIT   3    -    NOT   USED    */ 
A=>A; 

/*    TEST   BIT   4    -    RST   7    */ 
IF    (A=>A)    CY  THEN 
DO; 

STACK=PSW; 
RSTSFLAG=  (  A=0FFH)  ; 

/-*    RESET   TCTSSTATUS    BITS    4    AND    3    */ 
DE= [ TCTSSTATUS ] ;     A=TN;     CALL    [INDEX]; 
M(HL)  =  (  A=M(HL)     8    0CFH) ; 
PSW=  STACK; 

A=>A;     /*    ADJUST    ACCUMULATOR   FOR   NEXT   TEST   */* 
GOTO   CONTINUE; 
END; 
S*   TEST   BIT   3    -    BLOCKED    FOR   TERMINAL    I/O    */ 
IF    (A=>A)    CY   THEN 
DO; 

A=TN;     CALL    [ GET* TERMS STATUS ] ; 
IF    (A: :[ INPUTSWAITING] )     ZERO   THEN 
DO;     /*    NO    LONGER   BLOCKED    */ 
IF    (  B=  (  A=  TN)  ;     A=  [  TASK]  -B)     ! ZERO    THEN 
DO;     /*    TASK,    TN    NOT   EQUAL    */ 
DE= [ TCTSSTATUS ] ;     A= [ TASK] ; 
CALL    [  INDEX]  ; 
IF    (A=<M(HL))     CY  THEN 

DO;     /-*    SWAP    OUT   OLD    IMAGE    */ 
DIR=(  A=[OUT]  )  ; 
CALL    SWAP; 
END; 
/*    SWAP    IN   NEW    IMAGE   */ 
[TASK]  =(  A=TN)  ; 
DIR=(A=[  IN] )  ;     CALL   SWAP; 
END; 
CALL    [READSTERMINAL] ; 
[SWAPSSTACKl]=A; 
/*    RESET   TCTSSTATUS    BIT    5    */ 
DE= [ TCTSSTATUS]  ;     A=  [  TASK]  ;     CALL    [  INDEX] ; 
M(HL)  =  (  A=M(HL)       8    0DFH)  ; 
GOTO    RESUMES EXECUTION; 
END 
ELSE    GOTO    LOOP; 
END; 
CONTINUE: 

/*    TEST  BIT  6    -    RESUME   EXECUTION   -    FM  DISK  */ 
IF    (A=>A)    CY  THEN 
DO; 
DE= [ TCTSSTATUS] ;     A= [ TASK] ;    CALL    [INDEX]; 
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IF    (A=<M(HL))    CY  THEN 

DO;     DIR=(  A=[OUT]) ;    CALL   SWAP;    END; 

[TASK1=<A=TN)  ; 

DIR=(A=[  IR])  ;    CALL   SWAP; 

GOTO    RESUMESEXECUTION; 

END; 
/*   BIT  7   SET  -    RESUME   EXECUTION   -    IN   MEMORY  */ 
GOTO    RESUMESEXECUTION; 
/*   END   MONITOR  */ 

BOOTSTRAP: 

/*■  THIS  ROUTINE  EXAMINES  THE  DISK  MAP  FOR  THE  CURRENT  */ 
/*  TASK;  DETERMINES  THE  VIRTUAL  DISK  ATTACHED  TO  DRIVE*/" 
/*    A;    LOADS    THE    FIRST   512    BYTES    FROM   THE    DISK    INTO  */ 

/*  MEMORY  STARTING  AT  THE  BASE  OF  THE  USER  SWAP  AREA;  */ 
/*    AND   THEN    TRANSFERS    CONTROL    TO   THE    CODE    JUST   LOADED. */ 

/  *P  *P  *P  'T*  n*  Bp  *P  3fs  ?P  ^  *^  *^  *^  *p  *^  J^  ?fs  jp  ^x  «f.  JJ>  >f»  ^p  TfZ  *f>  ?p  Jf%  Jfx  «p  ^  »^  •P  *f>  ?JQ  Jft  *p  Jfs  *f*  JfC  2JC  •fs  2^  *P  *f*  JjC  ^R  *P  *)C  3fC  *P  *Jn  2ft  *f*  5fJ  / 

/*    DETERMINE    DISK  NR   ATTACHED   TO    DRIVE    A   */ 
DE=  [  TCTSDM3  ;     A=  [  TASK!  ;     CALL    [  INDEX8]  ; 
A=M(HL)       8    1FH; 
/*   DETERMINE   BOE   FOR  DISK  */ 
DE=CDMTSBOE]  ;    CALL    [ INDEX2] ;    CALL    [GET]; 
/*    READ    FIRST   SECTOR   ON    VIRTUAL    DISK  */ 
DE= C MEM8BASEI ;    L= [ READ]  ;     CALL    [  MINISDISK]  ; 
IF    [DISKSERROR]     THEN 

DO;       /*    BUMP    TASK  OFF    SYSTEM   */ 

CALL    BOMPSTASK; 

CALL    WRITESREC; 

GOTO   MONITOR; 

END; 
/*    UPDATE    SYSTEM   STATUS    */ 
DE=  C  TCTSSTATUS]  ;     A=  [  TASK]  ;     CALL    [  INDEX!  ; 
A=M(HL)    N    BOH;       /*    SET   BIT   7    */ 
M(HL)  =  (A=A      3    0FEH)  ;       /*    RESET  BIT  0    */ 
CALL   WRITESREC; 

[  TASKST I  MER]  =  (A=[  TIMES  LICE]  )  ;       /'*    RESET   TASKSTIMER   */ 
[  LOCK]  =  (  A= C LOCK!       8    0FEH) ;       /*    UNLOCK  SWAPPING   */ 
SP=0FEFFH; 
GOTO    C  MEMSBASE]  ; 
/*    END   BOOTSTRAP    */ 

RESUMESEXECUT I ON : 

/  ^fC  ifs  ifl  ift  JfT  Jf.  5fl  *fC^fC  *fC5{+*t*  *(Z  Jft  »fi  *f»  JfCJfC^f.  rf\  7f\  TfZ.  ^K^K  *f»  «f»  *Tn«F  *N5s»n  rj\rf^  7f\  ?s  JfS^J^  'P  *P«F  *P  *P  *P  *P  ***  *n  *P  *P  *P  *^  *P  *W^^  r 

z'*  THIS  ROUTINE  TRANSFERS  CONTROL  BACK  TO  A  USER  TASK  */" 
/*    WHICH    HAS    BEEN    SWAPPED    INTO    MEMORY.  */ 

CALL    WRITESREC; 

/%   UPDATE   SYSTEM  STATUS    */ 

[  TASKSTIMER]  =  (A=[TIMESL ICE] )  ;       /*    RESET   TASKSTIMER   */ 

S*    RESTORE    ORIGINAL    VALUE    OF    STACK   POINTER   */ 

/*    AND    ALL    REGISTERS    FROM   SWAPSSTACK  *• 

SP=  [  SWAPSSTACK]  ; 

PSW=  STACK;     BC=  STACK;     DE=  STACK;     HL=  STACK; 

SAVHL=HL;     HL= STACK; 

SP=HL;        /*    RESTORE    USER   SP    */ 

STACK=PSW;     DISABLE; 

[ LOCK] =( A= [ LOCK]       8    0FEH) ;       /*   UNLOCK  SWAPPING   */ 

HL=SAVHL;     S*    RESTORE    USERS    HL    *S 

IF    (A=RSTSFLAG;     A::0FFH)     ZERO    THEN 

DO;        S*    RST.7    REQUESTED    */ 

PSW= STACK;     ENABLE; 

CALL    38H;     /*    RST   7    */ 

RETURN; 

END 
ELSE 

DO;       /*   NORMAL   RETURN   */ 

PSW=STACK;    ENABLE; 

RETURN;    /*    RETURNS    TO    INTERRUPT   POINT   */ 
/*    IN    USER   SWAP     IMAGE  *• 

END; 
/*    END   RESUMESEXECUTION   */ 


1  18 


EOF 

/*****************   UTILITY  PROCEDURES   *********#*****#*/ 

/#*#*******#****    INTERNAL   MACROS   *****************#*##*/ 

[MACRO   ABNORMALSCOMPLETION    ' 0FFH' ] 

[MACRO   HARDWARES ERROR   '8'] 

[MACRO   MTSSMSG    ' 1837H' ] 

[ MACRO   READ    *  1  * ] 

[MACRO   PRT8SEC    ' 3FE2H' 3 

INDEX:       PROCEDURE; 

/*   GIVEN   THE   BASE   ADDRESS   OF   A  BYTE   VECTOR  AND   AN  */ 

/*    INDEX  VALUE,    THIS    PROCEDURE   CALCULATES    THE   ADDRESS  */ 

/*   OF   THE    INDEXED   ENTRY.  */ 

/*    INPUT:       A   -    INDEX  VALUE    (USUALLY  TASK)  */ 

/•*  DE   -    BASE   ADDRESS    OF    VECTOR  */ 

/*    OUTPUT:     BC    -    INDEX  VALUE  */ 

/*  DE   -    SAME   AS    INPUT  */- 

/*  HL   -    CALCULATED   ADDRESS   OF    INDEXED   ENTRY  */ 

s*   CALLED   BY:    SWAP,    MONITOR,     VALSDISK,    CLEARSFLAG,  */ 

/*  ATTACH,    LOGIN,    QUIT,    SIZE,    TERMSBLOCK,  */ 

/■*  SELECTS  DRIVE,    RECOVERSSTATUSSLINE,  */ 

s*  PROTECT,    RESTRICT,    UNPROTECT  */ 

B=0;  C=A; 
HL=BC+DE; 
END    INDEX; 

INDEX2:       PROCEDURE; 

s  JQCJp  *r»  *r**P*r»  *P  3f*  *r* *p  *t*  *^  *-'"*  *r«  »r»  flp  *f*  *P  'P  *P  *n  ^P  -f>  *r»  *P  *t*  >T**n  *^  *N  *r*  ***  «o  -N  3p  'f*  *t*  *t*  *P  *r»  *N  5f*  «r*  .f»  ^C  »y%  .?C  5f*  .p  *p  -fC  ?fi  *p  *f»  /^ 

/*    GIVEN   THE    BASE    ADDRESS    OF    AN    ADDRESS    VECTOR  AND    AN  */ 

f*    INDEX  VALUE,    THIS    PROCEDURE   CALCULATES    THE    ADDRESS  */ 

/■*   OF   THE  LOW  ORDER  BYTE   OF   THE    INDEXED   ENTRY.  */ 

/**    INPUT:       A   -    INDEX  VALUE    (USUALLY  TASK)  */ 

/*                      DE   -    BASE   ADDRESS    OF    VECTOR  */ 

/*   OUTPUT:    BC   -    CALCULATED   OFFSET   =    2    *    INDEX  VALUE  */ 

s*                          DE    -    SAME    AS     INPUT  */ 

/*                         HL   -    CACULATED    ADDRESS    OF    INDEXED   ENTRY  */ 

/*   CALLED    BY:    SWAP,    BOOTSTRAP.    SIZE,    SELECTSDRIVE  */ 

B=0;    C=(A=<<A); 

HL=BC+DE; 

END    INDEX2; 

INDEX4:       PROCEDURE; 

/  5f£  *P  *r«  ip  if\  ^fC  ^P  5f*  ?fi  »P  5f£  *f»  <-f»  Jf*  -fC  rf*  *fZ  »f»  -7*  »p  »P  5f>  »K  *P  *P  ^P  5P  5p  ?P  «t»  *f»  5]s  »P  Jp  ^s  7fc  7Jx  ^»  «7»  »p  »p  ?f»  *P  »J>  *P  Jp  ?p  »P  Jp  ?P  *r»  ^p  *^  3P  / 

/"*    INPUT:  A    -     INDEX   VALUE  */ 

/*  DE   -    BASE   ADDRESS    OF    VECTOR  */ 

/*    OUTPUT:     BC    -    CALCULATED   OFFSET   =    4    *    INDEX  VALUE         */ 

/*  DE   -   SAME   AS    INPUT  */ 

/■*  HL   -    CALCULATED    ADDRESS    OF    INDEXED  ENTRY         */ 

/*   CALLED  BY:     VALSKEY,    UPDATESCNFGSFILE,     PROTECT,  */ 

/*  RESRTICT,    UNPROTECT  */ 

/  5ft3fCIfI*fC3ft5fI5r»  Jf!  Jft  5ft 'fC^pJf*  3p  3f8  5fC5fC  ^r*2r»  3p  BpS  3p  -T»"f»  ^r*  3p  W  *n  *n  *r»  »T*5p  *f»  3f>  3fC5p2p*p7f;5f»  *p*p  jp  *p*p  3f»?p*p#p  »p?p3f»5f*  /^ 

B=0;    C=(  A=<< ( A=<< A) )  ; 

HL=BC+DE; 

END    INDEX4; 

INDEXB:       PROCEDURE; 

/■*    INPUT:       A   -     INDEX  VALUE  *' 

/*  DE   -    BASE   ADRESS    OF   VECTOR  */ 

/•*■    OUTPUT:    BC    -    CALCULATED   OFFSET   =    8   *    INDEX  VALUE  */ 

/*  DE    -    SAME    AS    INPUT  */ 

/*  HL   -    CALCULATED   ADDRESS   OF    INDEXED   ENTRY  */ 

/*    CALLED  BY:     BOOTSTRAP,     VALSDRIVE,    CLEARS DM,    ATTACH,  */ 

/*  SELECTSDRIVE,    RECOVERSSTATUSSLINE,  */ 

/*  UPDATESCNFGSFILE  *^ 
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B=0;    C=(A=<<(A=<<(A=<<A)))  ; 

HL=BC+DE; 

END    INDEX8; 

PUT:       PROCEDURE; 

/*    STORE   A   TWO    BYTE   ADDRESS    IN    A   SPECIFIED   VECTOR.  */ 

/■*    INPUT:    DE    -    ADDRESS    TO   BE   STORED  */ 

/•*                      HL    -    BASE   ADDRESS    OF    VECTOR  */ 

/■*   OUTPUT:     BC    -    UNCHANGED  */ 

/*                         DE   -    SAME   AS    INPUT  */ 

/■*                        HL   -    BASE   ADDRESS    +    1  */ 

S*   CALLED    BY:    RECOVER,     INITIALIZE  */ 

M(HL)=E;    HL=HL+1;    M(HL)=D; 
END   PUT; 

GET:       PROCEDURE; 

/*    FETCH   A   TWO   BYTE    ADDRESS    FROM  A   SPECIFIED    VECTOR.  */ 

/*    INPUT:     HL    -    BASE    ADDRESS    OF    VECTOR  */ 

/*   OUTPUT:    BC   -    ADDRESS    FETCHED  */ 

/*                         DE   -    ADDRESS    FETCHED  */ 

/*                         HL   -    BASE   ADDRESS    +    1  */ 

f*   CALLED   BY:    SWAP,     BOOTSTRAP,    SIZE,    SELECTSDRIVE  */ 

f  Jp*R3f»3f»  *f%  *r*  *fZ?^i^jJZ  *f»  »?>  *-F  »F  »fs  ?N?t*  *F  *t»  *f\  ,,.  .  ;<  3ft  »^  if\  *fc  *f»  *r**r*  *r»  *r*2Fw^  #n  SF  *P*P  *fwr*  ^fC  ^fJ  5fC  *fl  Jf*  3fT  Ift  if*  2ft  ^ft  ^t  iyl  ^r»  *f*  3n  / 

E=M(HL);    HL=HL+1;    D=M(HL);    BC=DE; 
END   GET; 

MOVBUF:       PROCEDURE; 

/  *f**T*  3p  »f»  *r*  "F  *f*  3n  *o  »f»  3p  V  *f*  *l*  «f»  *F  3p  3f»#P3p  ^n  *F*F*r*  3fi  *f>  !(63fC3p  *ft  »ft  »ft  *r»  *?>  *F  3f»*P#fs3^»f!  rft  ?p?f>  Sf**f**f*  *i>  *7»  «t»  *t-*  w>  2fC5f!3fC  / 

/*    THIS    IS    A    GENERAL    PURPOSE    UTILITY   PROCEDURE    WHICH  *s 

/*    MOVES    A   SPECIFIED    NUMBER   OF    BYTES    FROM   A   SOURCE  */ 

/*    BUFFER  TO   A   DESTINATION    BUFFER.  */ 

/*    INPUT:     BC    -    NUMBER  OF    BYTES    TO    BE    MOVED  */ 

/*                      DE    -    BASE   ADDRESS    OF    SOURCE   BUFFER  */ 

S*                      HL   -    BASE    ADDRESS    OF    DESTINATION    BUFFER  */ 

/*    CALLED    BY:    MTSSIPL,    ABORTS  I PL,    SEARCHS DIRECTORY,  */ 

/*                                  LOGIN,     READ3FL0PPY,     WRITESFLOPPY,  */ 

/*                                 INITIALIZE,    TIMERSHDLR   (  INT   MOD>  */ 

REPEAT; 

M(HL)  =  (  A=M(DE)  )  ; 

HL=HL+1;    DE=DE+1; 
UNTIL    (BC=BC-1;     A=0;     A::C)    ZERO    8    (A::B)     ZERO; 
END    MOVBUF; 

MINIDISK:       PROCEDURE; 

/    »ft  »ft  »ft  3f*  5ft  *f»  *fC  *f»  *f»  Zf\  rf\    *ft  -ft  .-ft  -|C  -ft  -ft  2f»    *ft  iff    -fC  -ft  -ft  3ft  3ft    -ft  -ft  -ft  -ft  -ft  -!^  -0  -f*  -ft  *R  -f>  -**  -ft  -f*  -ft  *f*  *T*  3p  *T*  ""  *P  *T*  »f>  "f"  3ft  >N  -R  »f»  2ft  • 

/*    THIS    PROCEDURE    TRANSFERS    A    SPECIFIED    5  12    BYTE  */ 

/*    BUFFER  BETWEEN    MEMORY  AND    THE    MINI -DISK.    THE   DIR-  */ 
/*    ECTION   OF    THE   TRANSFER    IS    INDICATED    BY  THE    OP    CODE.*/ 

/*    ERROR  PROCESSING    IS    LIMITED   TO   CHECKING   THE   STATUS  */ 

/■*■    RETURNED    BY   THE    MINI-DISK  CONTROLLER  FOR    'NORMAL  */ 

/■*   COMPLETION.  '    WHEN    ANY  OTHER  STATUS    IS    RETURNED   THE  */ 

/*   ROUTINE   DISPLAYS   THE   MESSAGE    'HARDWARE   ERROR'    ON  */ 

/*    THE    TERMINAL    CURRENTLY   ALLOCATED    THE    CPU    AND  */ 

/*    ABORTS    THE   OPERATION.  */ 

-    MINI-DISK  SECTOR  NUMBER  */ 

■  DMA   BUFFER  BASE    ADDRESS  */ 

■  OPERATION    CODE:  */ 

1  =    READ  */ 

2  =    WRITE  */ 

3  =    WRITE/VERIFY  */ 

■  RETURNS    00H    IF    COMPLETION    NORMAL,  */ 
OTHERWISE    RETURNS    FFH  */ 

■  SAME    AS    INPUT  *■/ 

■  SAME  AS  INPUT  */ 
READ«D I RECTORY,  RECOVER,  INITIALIZE,  */ 
WR I TESREC, SWAP, BOOTSTRAP,    READSBUF,  */ 

/*                                  WRITE*BUF,     READSPRTSBUF,     WRITESPRTSBUF  */ 

/*    SET   DCB   CHECKSUM    IN    LOCN   4CH   */ 
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/* 

INPUT: 

BC 

/* 

DE 

/* 

L 

/* 

/* 

/* 

/•* 

OUTPUT: 

:     A 

/■*. 

/■*■ 

BC 

/■*■ 

DE 

/■* 

CALLED 

BY: 

/■# 

M< 4CH) = ( A=0\NB, \\C , \ND, NNE, \NL) ; 

/■*   SET  SECTOR  NUMBER    IN   DISK  CONTROL   BLOCK  */ 

M(45H>=(A=B>  ;     M(  44H)  ■  (  A=C)  ; 

/*   DEBUG  -    TO   ENSURE   SYCOR  SYSTEM    IS    NEVER  OVERWRITTEN   */ 

STACK*  HL;    HL=0B7H; 

L= ( A=  L-C) ;    H= ( A=  H-D) ; 

IF    ?CY  THEN  CALL    10H; 

HL= STACK; 

/*    SET   DMA   BUFFER   ADDRESS    IN    DISK  CONTROL    BLOCK  ■*' 

M(43H)  =  (A=D)  ;     M(  42H)  =  (  A=E)  ; 

/*    INITIATE    OPERATION    */ 

M(40H)  =  (A=L)  ; 

/*    WAIT  UNTIL   OPERATION   COMPLETE   */ 

REPEAT; 

A=M(41H)  ; 
UNTIL    (A: :0)     !ZERO; 

/*    TEST   A   FOR   COMPLETION    STATUS    *• 

IF    (M(41H)  =  (  A=A-1)  )     ZERO    RETURN;       /*    NORMAL   COMPLETION    *■/ 
M(41H)  =  (  A=0)  ; 
E=  i  HARDWARES  ERROR]  ; 
CALL    [  MTSSMSG3  ; 
A=CABNORMALSCOMPLETION] ; 
END    MINISDISK; 

READSPRTSBUF:       PROCEDURE; 

s  *f»  *f*  *f»  an  *r»  3p  3F  *n  *r*  *r*  8P*n  W  *n*n  *p*nSn*n  *v*  «n  «n  *r»  *p  *r»  3p  3p  3n"*P*p  *f»  *f»  *f»  *f»  5f?  3p  5f*  »f*  SfB  Sp  ^f»  ^f»  3n  *r»*f* -F*  BfiSfCifi  Sf*  *f**T»*f»/ 

/*  THIS  ROUTINE  IS  CALLED  INITIALLY  BY  WRITESPRINTER  */ 
/*  IN  ORDER  TO  FILL  THE  PRINT  BUFFER  WITH  THE  FIRST  *• 
/*  SECTOR  OF  THE  MTSPRT  FILE  PRIOR  TO  OUTPUT  OF  THE  */ 
/*  FIRST  CHARACTER  TO  THE  PRINTER.  SUBSEQUENT  GALLS  *• 
/*    ARE    MADE    BY   THE    PRINTERS HDLR    IN    THE    INTERRUPTS  */ 

/*  CONTROLLER  UNTIL  THE  END  OF  FILE  IS  ENCOUNTERED  *• 
/■*    CALLED    BY:     WRITESPRINTER,     PRINTERSHDLR,     RECOVER         */ 

HL=[PRTSSEC3 ;       C=M(HL);       HL=HL+1; 

B=M(HL);       /*    BC    HAS    CURRENT   MTSPRT   SECTOR   #    */" 

DE=100H;       L=[READ]; 

CALL    MINISDISK; 

BC=BC+1;        HL=CPRTSSEC]  ; 

M(HL)=C;       HL=HL+1;       M(HL)=B; 

END    READSPRTSBUF; 

EOF 

/****#***********    INITIAL    PROGRAM   LOAD    ****************/ 

f   <T»  *r*  *P  *^  *T*  *^  *^  *T*  *P  *T*  *p  *f*  *f*  5|*  *r»  3p  3p  ^F  *f*  3p  *f»  Sp  ip  ip  Sp  *P  3p  *f»  *P  *P  5p  *f*  »r*  flp  !p  *r*  <t*  *f*  *f»  *P  *f»  ^*  ~K  »f*  5p  'ip  *f*  *f*  *J^  »P  ^^  ?P  *J*  *f*  / 


/***#*#*******    INTERMODULE    LINKAGE    MACROS    *************/ 

[ INT   MB   M2B   SB   TB] 

[MB:=0300H]     C  M2B:  =0600H]     [SB:=1F00H]     [TB:  =  1000H] 

[MACRO  MONITOR    '[HEX   MB    +    0AAH]  '  ] 

[MACRO  MOVBUF     '[HEX   M2B    +    41H3'3 

[MACRO  PUT    '[HEX  M2B   +    31H]'] 

[MACRO  MINISDISK    '[HEX   H2B    +    34H3  '  ] 

[MACRO  INDEX    '[HEX   M2B    +    3H3  *  3 

[MACRO  INDEX8    '[HEX   M2B    +    24H3  '  3 

[ MACRO  READSPRTSBUF     '  [  HEX   M2B    +    9EH3  *  3 

[  MACRO  MTS    '  [  HEX   SB   +    03 ' 3 

[ MACRO  MTSSMSG    '  [  HEX  TB   +    837H3  ' 3 

[MACRO  CLEARSSTATUSSLINE    '[HEX   TB    +    827H3 ' 3 

[MACRO  TERMINALSSTATUS    '[HEX  TB    +    8D2H3  '  3 

[MACRO  READSTERMINAL    '[HEX   TB    +    8DCH3  '  3 

[MACRO  WRITESTERMINAL    '[HEX   TB    +    93CH3  *  3 

[MACRO  SIZESMSG    '[HEX   TB    +    864H3  '  3 

[  MACRO  STATUSSMSG    '  [  HEX   TB    +    88CH3  ' 3 

[MACRO  BUFSPTR    '3C40H'3 

[MACRO  TASK    '3E80H'] 

[MACRO  RECSFILE    '3E81H'3 

[  MACRO  TCTSSTATUS    ' 3E85H*  3 

[  MACRO  TCTSS I ZE    ' 3E A9  H ' 3 

[MACRO  TCTSEOE    '3EB5H'3 
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C MACRO   TCTSDM    ' 3E89H* 1 

[MACRO   CNFGSFILE    '3E83H'] 

[MACRO   DMTSFLAG    '3EBDH'] 

[MACRO    DMT3B0E    '3EDDH'] 

[  MACRO    DMTSEOE    ' 3F 1 DH ' ] 

[MACRO   DMTSKEY    '3F5DH'] 

[MACRO   PRTSCNTRL    '3FDDH'] 

[MACRO   PRTSBOE    ' 3FDEH'] 

[MACRO   PRTSEOE    'SFEOH'] 

[MACRO    PRTSSEC    ' 3FE2H'] 

[MACRO    SYSSSTACK    '3C6AH'] 

/*    .MDBUF    =    3C7EH  -    USED    IN   RECOVER  */ 

/******##*******    GENERAL   PURPOSE    MACROS    ***********::****/ 

[ INT    IPLSOFFSET] 

[ IPLSOFFSET: =35C7HI        /*    ADDR   OF    LABEL    SHIFT    +     1200H   */ 

/**##******#*****    MODULE   DECLARATIONS    a*****************/ 

DECLARE    (I, J)     BYTE; 
DECLARE   MAX(2)    BYTE; 

/*   ADDRESS    OF    LAST   ENTRY  +    1    IN   DIRECTORY    IMAGE   */ 
DECLARE    RECSNAMEO)     BYTE    INITIAL    (  '  .  MTSRCVRS '  )  ; 

/*****#********:»:***#    PROCEDURES    *****************x*X***/ 

ABORTS  I PL:       PROCEDURE ( MSG) ; 

/*    WHENEVER  A   CONDITION    OCCURS    DURING   THE    IPL    PROCESS  */ 

S*    WHICH   PREVENTS    NORMAL    COMPLETION    OF    THE    IPL   THIS  */ 

/*    PROCEDURE    IS    CALLED    TO   TERMINATE    EXECUTION    AND  */ 

/*    DISPLAY   AN    ERROR   MESSAGE    AT   TERMINAL    0.  */ 

/*    INPUT:     MSG   -    BASE    ADDRESS    OF    ERROR   MESSAGE  */ 

/*  TERMINATED    BY    '9'  */ 

/*    CALLED   BY:    READSD I RECTORY,     INITIALIZE,    RECOVER,  */ 

DECLARE    ABORTSMSG   DATA    ( ' IPL    ABORTED    -     ' ) ; 

/*    DISPLAY    * IPL    ABORTED1     AT   TERMINAL    0    */ 

BC=14;    DE=. ABORTS MSG;     HL=O7O0H; 

CALL    [MOVBUFI  ; 

HL=MSG;     A='S'; 

DO    C=0    BY  C=C+1    WHILE    (A::M(HL))     !ZERO; 

HL=HL+1;        /*    COUNT   CHARS     IN    MSG    */ 
END; 
B=0;     DE=(HL=MSG);     HL=070EH; 


CALL  [MOVBUFI 
DISABLE;  HALT 
END    ABORT* IPL 


/*    DISPLAY   MSG    AT   TERMINAL    0    */ 


READSD I RECTORY :       PROCEDURE ; 

/  »fC  *T»  Jf*  «T^*T*  "I*  *r*  *f*  *T**f*  *f*  3p  *■"*  3K  3p  *r*  *T»  »f*  *r^  *p  'f*  'T'  *V*  *fr«P  *T*  *^  *f*  ***  "P  'I*  *f*  *R  ~r*  *^  *P  »r»'l>  *T*  »"0  -^*r*  »^  «^  ?N  »T*  *T*  *r*  W>  *T*  *R  ^^  *^  *P  ^»  / 

/*  DURING  THE  INITIALIZATION  PROCESS  IT  IS  NECESSARY  */ 
/*    TO    DETERMINE    THE    SECTOR   NUMBERS  OF    SEVERAL    SYSTEM   */ 

/*  FILES  WHICH  RESIDE  ON  THE  MINI-DISK  IN  SYCOR  FORMAT.*/ 
/*  MULTIPLE  DIRECTORY  SEARCHES  COULD  LEAD  TO  REPEATEDLY*/ 
/*    READING  THE   SAME   BLOCK  OF    MINI-DISK  SECTORS.    TO  */ 

/*  ELIMINATE  MOST  OF  THESE  UNNECESSARY  READ  OPERATIONS  */ 
/*    THIS    PROCEDURE    READS    THE    ENTIRE    SYCOR   DIRECTORY  */ 

/*  INTO  MEMORY  AT  ONE  TIME,  THUS  REDUCING  THE  OVERHEAD  */ 
/*    INVOLVED    IN    MULTIPLE    SEARCHES.  */ 

/*    CALLED    BY:     MTSSIPL  */ 

[INT  SYCORSDIRSBASE]       /*    SYCOR  DIRECTORY  BASE   */ 

[SYCORSDIRSBASE:=20H]    /*    SECTOR  NUMBER  */ 

DECLARE    READSMSG(22)     BYTE    INITIAL    ('CANNOT    READ    D I RECTORY* *) ; 

/*    SET   UP    REGISTERS    FOR   DISK  READ    */ 

BC=[HEX  SYCORSD IRS BASE ] ; 

DE=3200H?       /*    5000H    +    200H    =    DIRECTORY   BASE    ADDRESS    */ 

/*    READ    NUMBER   OF    SECTORS    INDICATED    */ 

/*     IN    DIRECTORY   HEADER   RECORD  */ 

REPEAT; 

L=l;    /*    READ    */    GALL    [  MINISDISK]  ; 
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IF  (A::0)  !ZERO    /*  DISKERROR  */ 

CALL  ABORTS  I PL(  . READS MSG) ; 

DE= ( HL=  200H+DE)  ;  BC=  BC+ 1 ; 
DimL  (A=M(520AH);  S*   DIR  BASE  +  0AH  *•  A:  :C)  CY; 
/*  CALCULATE  ADDRESS  OF  LAST  ENTRY  +  1  IN  IMAGE  */ 
B= [ HEX  SYCORSD IRSBASE- 1 ] ; 

A=A-B;  /*   A  =  NR  SECTORS  IN  DIRECTORY  */ 
D=(A=<<A)  ; 

E=0;  S*    DE  =  NR  SECTORS  *  512  */ 
HL=5201H;  /*    DIR  BASE  +  1  */  RL=HL+DE; 
MAX=HL; 
END  READ8D I  RECTORY; 

SEARCH* DIRECTORY:   PROCEDURE; 

/*  GIVEN  THE  BASE  ADDRESS  OF  A  VECTOR  CONTAINING  THE  */ 

/*  NAME  OF  A  FILE  IN  SYCOR  FORMAT,  THIS  ROUTINE  WILL  */ 

/*  SEARCH  THE  DIRECTORY  IMAGE  READ  INTO  MEMORY  BY  */ 

/*  READSD I RECTORY.  IF  THE  FILE  ENTRY  IS  FOUND,  THE  */ 

/*  BOE  AND  EOE  VALUES  ARE  RETURNED.  */ 

/*  INPUT:  DE  -  BASE  ADDRESS  OF  FILENAME  VECTOR  */ 

/*  ASSUMED  TO  BE  8  BYTES  LONG  */- 

/*  OUTPUT:  BC  -  BOE  OR  FFFFH  IF  FILE  NOT  FOUND  */ 

/■*  DE  -  EOE  OR  FFFFH  IF  FILE  NOT  FOUND  */ 

/*  CALLED  BY:  INITIALIZE.  RECOVER  */ 

DECLARE  LOOP  LABEL; 

/*  MOVE  FILENAME  TO  LAST  ENTRY  +  1  */ 
BC=8;  HL=MAX;  CALL  [MOVBUF1; 

DE=3241H;   /*  DIR  BASE  +  41H  -  ADDRESS  OF  FIRST  ENTRY  */ 
LOOP:   /*  ADVANCE  TO  NEXT  ENTRY  */ 
STACK=DE;  HL=MAX;  B=8; 
REPEAT;   /*  COMPARE  CHAR  BY  CHAR  */ 
IF  (A=M(DE):  A::M(HL))  ZERO 
N  (IF  (A::0)  ZERO   3  (A=M(HL)-20H)  ZERO 
THEN  CY=1  ELSE  CY=0)  CY 
THEN   /*  CHAR  MATCH  *• 
DO; 

DE=DE+1;  HL=HL+1; 
END 
ELSE   /*  NON- MATCH  */ 
DO;  DE= STACK; 
DE=(HL=40H+DE) ; 
GOTO  LOOP; 
END; 
UNTIL  (B=B-1)  ZERO; 
SP=(HL=2+SP) ;  /*  CLEAR  STACK  */ 

/*  FALLING  THRU  LOOP  MEANS  NAMES  MATCH,        */ 
/*   MUST  TEST  FOR  SUCCESS  OR  FAILURE  OF  SEARCH  */ 
IF  <A=MAX<1);  A:  :  D)  CY   /*  X::Y=CY  =>  X<  Y  */ 
\(  IF  ZERO   8  (A=MAX(0);  A::E)  CY  THEN  CY=  1  ELSE  CY=0) 
CY  THEN 

DO;  /*   SEARCH  FAILED  */ 
BC=0FFFFH;  DE=BC; 
END 
ELSE  DO;   /*  SEARCH  SUCCESSFUL  */ 
HL=3+DE; 

C=M(HL);  HL=HL+1; 
B=M(HL)  ;  HL=HL+1; 
E=M(HL)  ;  HL=HL+1; 
D=M(HL)  ; 
END; 
END  SEARCHSD I RECTORY; 

RECOVERSSTATUSSLINE:   PROCEDURE; 

/*  ROUTINE  TO  BUILD  AND  DISPLAY  THE  STATUS  LINE  WHEN  */ 
/*  A  RECOVERY  IS  PERFORMED.  THIS  ROUTINE  DISPLAYS  ALL  */ 
/*  ACTIVE  DRIVES  AND  ASSOCIATED  DISKS  AND  DISPLAYS  */ 
/*  SWAP  IMAGE  SIZE  FOR  EACH  TASK.  *' 

/*  CALLED  BY:  RECOVER  *' 

DECLARE  SAVESTASK  BYTE; 
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HL=  C  TASK]  ; 

SAVESTASK=(A=M(HL>) ;    /*  SAVE   CURRENT  TASK  NUMBER  */ 

I=<A=0>;       s*    INITIALIZE   TASK  COUNTER  */ 

/*    CHECK  TCTSSTATUS    FOR  ACTIVE   TASK      */ 

REPEAT;    /*   FOR  ALL   4   TASKS   */ 

DE=C TCTSSTATUS] ;    CALL    [ INDEX] ; 

IF    (A=M(HL);    A::0>     TZERO   THEN      /*   TASK  ACTIVE   */ 
DO; 

HL=CTASK];    M(HL)  =  (A=I);    /*    SET  TASK  NUMBER  */ 
DE= [ TCTSDM3  ;    CALL    [  INDEX8] ; 
J=(A=0);       /*    INITIALIZE    DRIVE   COUNTER  */ 
REPEAT;    /*    FOR   ALL   8   DRIVES    */ 
IF    (A=<M(HL))    CY  THEN 

DO;       /*    DRIVE    IN    USE   */ 

B=(A=J);    C=(A=M(HL)    8    IFH)  ; 
IF    (A=M(HL)    8    40H)     !ZERO 

THEN   A=72H   ELSE   A= '     '  ; 
STACK=HL; 

/"*    DISPLAY  ACTIVE   DRIVE   AND   DISK  */* 
CALL    C  STATUSSMSG]  ; 
HL= STACK; 
END; 
UNTIL    (HL=HL+1;    J=(A=J+1);    A::8>    ZERO; 
/*   DISPLAY  SIZE   MESSAGE   #/ 
DE= [ TCTSS IZE] ;    A= I ;    CALL    C INDEX] ; 
CY=0;    A=>M(HL);    CALL    CSIZESMSG]; 
END; 
UNTIL    (I=(A=I+1);     A::4)     ZERO; 
/*   RESTORE   CURRENT  TASK  NUMBER  */ 
HL=  C  TASK]  ;     M(  HL)  =  (  A=  S AVESTASK)  ; 
END   RECOVERSSTATUSSLINE; 

RECOVER:       PROCEDURE; 

S  5fI3^ «fC ^fZTfZ  5ft »p  2f»  *fC  -f\  *ft  *fC  -ft  *f>  ifC  if*  *f» iK  ?>  ffi  *K 3f*  ^r»  -T*  *f*  *t*  -t*  >f*  *f*  3p  «?»  *^ »•»  »<"■  *K  »7>  *r*  *T* *T*  *r»  SfB  *r»  ?r* *f*  'f*  »f»  *f*  *r*  »R-*K  »5*  Jf*  Jf*  »r*  / 

/*    MTS    HAS    BEEN    DESIGNED   SO   THAT   THE   SYSTEM  STATE    AT  */ 

/■*   ANY    INSTANT    IS    DEFINED    BY  A   COMPACT,    CONTIGUOUS  *• 

/*    GROUP    OF    BYTES    KNOWN    AS    THE   SYSTEM  STATE    BLOCK.  */ 

/•*    EACH   TIME    THAT  SWAPPING   OCCURS    THE   SSB    IS    WRITTEN  */ 

•*   TO   THE   MINI-DISK  FILE    . MTSRCVR.     IF    THE   TASK  JUST  */ 

/*    SWAPPED    IN    CAUSES    A   SYSTEM  CRASH,     RECOVERY    IS  */ 

/*    ACCOMPLISHED   BY   REBOOTING   MTS    AND    ANSWERING    'Y*    TO  */ 

/■*   THE   RECOVERY  QUERY.    MTS    WILL   READ    .MTSRCVR  BACK  */ 

/*    INTO   THE    SSB,    DELETE   THE    OFFENDING   TASK,     AND  *• 

/*   CONTINUE   WITH  THE   NEXT   READY  TASK.  */ 

/*    NOTE:    THIS    PROCEDURE    USES    THE   FACT   THAT  THE    BOE  */ 

/*  AND    EOE   VALUES    RETURNED   BY  SEARCHED  I  RECTORY  */" 

/*  ARE   EQUAL    FOR   A   SINGLE-SECTOR  FILE.  */ 

/*    CALLED    BY:     MTSSIPL  */ 

/*    FIND   MINI-DISK  SECTOR   ADDRESS    OF    .MTSRCVR  */" 

DE=.RECSNAME; 

CALL   SEARCH8D I RECTORY; 

IF    (A=B;     A::0FFH)    ZERO   CALL   ABORTS IPL(  . RECSNAME)  ; 

/*    READ    .MTSRCVR    INTO   SSB    */ 

DE=BC;        /■*■    MOVE    BOE    TO    DE    */ 

HL=[RECSFILE] ;    CALL    [PUT]; 

DE=3C7EH;       S*    ADDRESS    OF    SSB   -    . MDBUF    */ 

DISABLE; 

I  =  (A=0)  ; 

REPEAT; 

L=l;    s*   READ   */    CALL    [MINISDISK]; 

IF    (A::0)     !ZERO      /*    DISK  ERROR   */ 

CALL   ABORTS  I PL(  .RECSNAME)  ; 

BC=BC+1;     DE=(HL=200H+DE) ; 

UNTIL    (I  =  (A=I+1);     A::2)    ZERO; 

IF    ( A=M(  [PRTSCNTRL]  )  ;    A=<A;    A=<A)    CYTHEN 

DO;    /*   COMPLETE   PRINTING  TASK  */ 

HL= [ PRTSSEC]  ;       DE=  C  PRTSBOE]  ; 

M(HL)  =  (  A=M(DE)  )  ;       HL=HL+1;       DE=DE+1; 

M(HL)  =  (  A=M(DE)  )  ; 

S*      SET   BUFFER   PTR  TO    100H      */ 

HL=  C  BUFSPTR]  ;       M(HL)=0;    HL=HL+1; 

M(HL)=1; 
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CALL  [ READSPRTSBUF] ; 

OUT(8AH)=(A=0)  ; 
END; 
ENABLE; 

/*  DELETE  TASK  CAUSING  CRASH  */ 
C=-2;   /"*  BUMP  */ 
CALL  CUTS] ; 

E=9;   /*  TASK  DELETED  */ 
CALL  [  MTSSMSG]  ; 
CALL  RECOVERSSTATUSSLINE; 
END  RECOVER; 

INITIALIZE:   PROCEDURE; 

/*  THE  SYSTEM  STATE  BLOCK  CONSISTS  OF  THREE  SETS  OF  */ 
/*  VARIABLES:  SYSTEM  CONTROL,  TASK  CONTROL  TABLE,  AND  */ 
/*  THE  DISK  MAP  TABLE.  THE  OBJECT  MODULE  GENERATED  BY  */ 
/*  THE  ML80  COMPILER  CONTAINS  INITIAL  VALUES  FOR  */ 
/*  SYSTEM  CONTROL  VARIABLES  AND  MOST  OF  THE  TCT.  IN  */ 
/*  ORDER  TO  INITIALIZE  THE  REST  OF  THE  TCT  IT  IS  */ 
/*  NECESSARY  TO  SEARCH  THE  SYCOR  DIRECTORY  IMAGE  */ 
/*  COPIED  INTO  MEMORY  BY  READSD I RECTORY  FOR  BOE  AND  */ 
/*  EOE  VALUES  FOR  THE  RECOVERY  FILE  AND  ALL  FOUR  SWAP  */ 
/*  FILES.  TO  INITIALIZE  THE  DMT  THE  VIRTUAL  DISK  */ 
/*  CONFIGURATION  FILE,  .MTSCNFG,  MUST  BE  READ  INTO  */ 
/■*  MEMORY  AND  BOE  AND  EOE  VALUES  FOR  THE  VIRTUAL  DISK  */ 
/*  FILES  EXTRACTED  FROM  THE  SYCOR  DIRECTORY  IMAGE.  */ 
/*  THE  PROTECTION  ATTRIBUTES  FOR  EACH  VIRTUAL  DISK  */ 
/"*  ARE  ALSO  COPIED  INTO  THE  DMT  FROM  .MTSCNFG.  */ 
/*  NOTE:  THIS  PROCEDURE  USES  THE  FACT  THAT  THE  BOE  */ 
/*  AND  EOE  VALUES  RETURNED  BY  SEARCHSD I RECTORY  */ 
/*        ARE  EQUAL  FOR  A  SINGLE-SECTOR  FILE.  */ 

/*  CALLED  BY:  MTSSIPL  */ 

DECLARE  ENTRYSBASEC2)  BYTE; 

DECLARE  CNFGSNAME(9)  BYTE  INITIAL  ( ' . MTSCNFGS ' ) ; 

DECLARE  SWAPSNAMEC9)  BYTE  INITIAL  ( ' . MTSSWP0S ' ) ; 

DECLARE  SYSDISK(9)  BYTE  INITIAL  ('SYS  DISKS'); 

DECLARE  PRTSFILESNAME(9)  BYTE  INITIAL  ( ' . MTSPRT  «'); 

/*  SET  UP  RECOVERY  FILE  */ 

DE= . RECSNAME ;  CALL  SEARCHSD I RECTORY; 

IF  (A=B;  A::0FFH)  ZERO  CALL  ABORTS  I PL(  . RECSNAME)  ; 

E=(  A=E-C)  ; 

IF  (E=E-1)  TZERO  THEN  CALL  ABORTS  I PL(  . RECSNAME)  ; 

DE=BC;  /*  SET  UP  TO  STORE  BOE  *• 

HL=[RECSFILE] ;  CALL  [PUT]; 

/*  SET  UP  TASK  CONTROL  BLOCK  IN  SSB  */ 

I  =  (A=4);  STACK* < HL= [ TCTSEOE] ) ; 

REPEAT* 

DE= .SVAPSNAME;  CALL  SEARCHSD I RECTORY; 

IF  (A=B;  A::0FFH)  ZERO 

CALL  ABORTS  I PL(  . SWAPSNAME)  ; 

/*  CHECK  THAT  SWAP  FILE  AT  LEAST  16K  *• 

L=(A= !C,+1) ;  H=( A= !B,++0) ; 

HL=HL+DE; 

IF    (A=L;     A::31)     CYCALL    ABORTS  I PL(  . SWAPSNAME) ; 

HL= STACK;    CALL    C PUT3 ; 

DE=BC;    BC=-9; 

HL=HL+BC;    CALL    [PUT]; 

BC=9;    STACK=(HL=HL+BC)  ; 

SWAPSNAME(7)  =  (  A=SWAPSNAME(  7)  +  1)  ; 
UNTIL    (I=(A=I-D)     ZERO; 
SP=CHL=2+SP) ;       /*    CLEAR  STACK  */ 
DE= .PRTSFILESNAME;    CALL   SEARCHSD I RECTORY; 
IF    (A=B;     A::0FFH)     ZERO    CALL    ABORTS  I PL(  . PRTSFILESNAME)  ; 
HL=[PRTSEOE] ;       CALL   [ PUT] ; 
DE=BC;    HL=[PRTSBOE] ;    CALL    [PUT]; 
/•*    SET  UP    DISK  MAP    TABLE    IN   SSB   */ 
DE=.CNFGSNAME;    CALL   SEARCHSD I RECTORY; 
IF    (A=B;     A::0FFH)     ZERO    CALL    ABORTS  IPL(  .  CNFGSNAME)  ; 
HL= [ CNFGSF I LE] ;    CALL    [ PUT] ; 

/*    READ    CONFIGURATION    FILE    INTO    MEMORY  */ 
DE=5000H;       /*    ADDRESS    FOR   BASE   OF    MEMORY   */ 
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L=l;   /*   READ   */   CALL  [MINISDISIQ; 
IF  (A::0)  TZERO  /*  DISK  ERROR  *s 
CALL  ABORTS  I PL( .CNFGSNAME) ; 
HL=5000H;    /*  MEMORY  BASE  ADDRESS  */ 
IF  (A=M<HL);  A::2EH)  TZERO  THEN 

DO;   /*  FIRST  BYTE  OF  . MTSCNFG  NOT  ' . '    */ 

/■*   ELIMINATE  SYCOR  OVERHEAD  FROM  .MTSCNFG  */ 
/*   SYCOR  OVERHEAD  (OH)  OF  THE  FORM:  */ 
/*  2  BYTES  OH,  100H  BYTES  DATA       */ 
/*  4  BYTES  OH,  0A0H  BYTES  DATA       */ 
DE=3002H;     /*  ADDRESS  OF  SOURCE  */ 
BC= 100H;  /*  NUMBER  OF  BYTES  TO  BE  MOVED  */ 
CALL  [ MOVBUF] ; 

DE=5106H;   /*   ADDRESS  OF  SOURCE   */ 
HL=3100H;    /■*       ADDRESS  OF  DESTINATION   */ 
BC=0A0H;  /*  NUMBER  OF  BYTES  TO  BE  MOVED  */ 
CALL  [MOVBUF] ; 

/*  UPDATE  CONFIGURATION  FILE  */ 
DE=  5000H ;   HL= [ CNFGSF I LE] ; 
C=M(HL);  HL=HL+1;  B=M(HL); 
L=2;  /*    WRITE  *•  CALL  [MINISDISIQ; 
IF  (A::0)  TZERO  S*    DISK  ERROR  */ 
CALL  ABORTS  I PLC  .CNFGSNAME)  ; 
END; 
I=(  A=0)  ;  ENTRYSBASE=(HL=(DE=5000H)  )  ; 
REPEAT;   /*  STEP  THRU  CONFIGURATION  FILE  */ 
CALL  SEARCHSD I RECTORY; 
IF  (A=B;  A::0FFH)  TZERO  THEN 

DO;  /*    VIRTUAL  DISK  (  I)  EXISTS  *• 
STACK=BC;  B=0;  C=(A=<<I); 
HL=[DMTSEOE]+BC;  CALL  [PUT]; 
DE=  STACK;  HL= [ DMT3B0E] +BC ;  CALL  [ PUT] ; 
BC=3;  DE=(HL=ENTRYSBASE+BC) ; 
B=0;  C=( A=<< ( A=<< I) ) ; 
HL=[DMTSKEY]+EC; 

DO  B=0  BY  B=B+1  WHILE  (A=B-4)  TZERO; 
M(HL)=(  A=M(DE)  )  ; 
DE=DE+1;  HL=HL+1; 
END; 

B=0;  C=(A=I); 
HL=[DMTSFLAG]+BC; 
IF  (A=M(DE);  A::(B=*RM)  ZERO  THEN 

M(HL)=0DH 
ELSE  DO; 

IF  (A::(B='P'))  ZERO  THEN  M(HL)=05H 
ELSE  M(HL)=01H; 
END; 
END; 
DE=(HL=ENTRYSBASE+(BC=13)) ; 
ENTRYSBASE=HL; 
UNTIL  (I=(A=I+1);  A::  32)  ZERO; 
/*  CHECK  THAT  DISK  0  EXISTS  */ 
HL= [ DMTSFLAG] ; 

IF  (A=M(HL)   8  01)  ZERO  CALL  ABORTSIPL(  .SYSDISK)  ; 
END  INITIALIZE; 

MTSSIPL: 

•*  THIS  ROUTINE  IS  THE  INITIAL  ENTRY  POINT  INTO  MTS .  */ 

/*  THE  SYCOR  440  LOADER  TRANSFERS  CONTROL  HERE  AFTER  */ 

/■*   THE  SYSTEM  OBJECT   MODULE  HAS  BEEN  LOADED.  IF  THE  */ 

/*  SYSTEM  LOADER  LOADS  MTS  THE  LOAD  MODULE  IS  DIS-  */ 

/*  PLACED  BY  1200H  SO  THIS  ROUTINE  MOVES  MTS  TO  */ 

/"*  ABSOLUTE  LOCATION  ZERO  THEN  TRANSFERS  CONTROL  TO  */ 

/*  THE  MOVED  MTSSIPL  ROUTINE.  DURING  */ 

/"*  IPL  ALL  PERIPHERAL  DEVICES  ARE  RESET,  THEN  MTS  */ 

/*    READS  THE  SYCOR  DIRECTORY  INTO  MEMORY,  AND  ASKS  */ 

/*  THE  OPERATOR  AT  TERMINAL  0  WHETHER  RECOVERY  IS  */ 

'*    REQUIRED.  IF  THE  ANSWER  IS  *Y'  THEN  THE  PROCEDURE  */ 

/*  RECOVER  IS  CALLED  TO  READ  THE  FILE  . MTSRCVR  INTO  */ 

/*  THE  SYSTEM  STATE  BLOCK.  OTHERWISE  THE  PROCEDURE  */ 

/■*    INITIALIZE  IS  CALLED  TO  BUILD  AN  SSB  FROM  INFOR-  *• 

/*  MATION  CONTAINED  IN  THE  SYCOR  DIRECTORY  IMAGE  AND  */ 
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z'*    THE    FILE    .  MTSCNFG.    ONCE    IPL    IS    COMPLETE    CONTROL    IS  */ 

/*   TRANSFERRED   TO  THE   PROCESSOR  MANAGEMENT  SUBMODULE  */ 

/*■   WHICH   WILL   CONTROL   ALL   SUBSEQUENT   PROCESSING.  */ 

/*   CALLED   BY:    SYCOR  SYSTEM  LOADER  */ 

f  5fC*f»5f**f»*f»  *r»5f!?p5f»  *^  *P  *^  *P*P  •r-  *P  3p  *N*P  *P  *F  *f»  *n  *^  *f*  *n  *p  *P  *t»  3n  5p5f>  ?P  ^r*  *p  »|S  »fC  *f»  Jf;  2p  *fC  -K^f»  »fC  #(%  if;  ^1  «£  *f**f*«f!  3fl  JK5fC/ 

DECLARE    (WAIT,    TEST,    CLEAR,    SHIFT)    LABEL; 

DECLARE    IPLSMSG( 15)    BYTE    INITIAL    ('RECOVERY?    ( Y/N) ' ) ; 

/-*    SET  STACK  POINTER  */ 

DE=20;       /*    INDEX  TO   TOP   OF   SYSSSTACK  */ 

SP=  (  HL=  [  SYSSSTACKJ    +    DE)  ; 

/*    CLEAR  PERIPHERAL    INTERRUPTS    */ 

0UT(2)  =  (A=1)  ;    /*   DISABLE   TIMER  */ 

0UT(85H)=(  A=  10H)  ;    /*    CLEAR  CSST    INTERUPT   */ 

A=IN(8AH);    /*   CLEAR  PRINTER    INTERUPT  */ 

/"*    IF    DEBUGGER    IS    USED   TO   LOAD   THE   SYSTEM*/ 

/*   SKIP   THE   MOVE,    OTHERWISE   RELOCATE   MTS   */ 

/•*    LOADSSWITCH   EQUALS    0    FOR  DISK  LOAD  */ 

/*   AND   0FFH  FOR  DEBUGGER  LOAD  */ 

IF    (A=0FFH;    A::0    /*    LOADSSWITCH   */    )    ZERO   GOTO   CLEAR; 

HL=0000H;    DE=1200H;       BC=4600H;       /*    MTS    SIZE   -    4600H   */ 

SHIFT: 

M(HL)  =  (  A=M(DE))  ; 

HL=  HL+ 1 ;       DE=  DE+ 1 ; 
IF    (BC=BC-1;    A=0;     A::C)     !ZERO   GOTO    [HEX    IPLSOFFSET]; 
IF    (A::B)     !ZERO   GOTO    [HEX    IPLSOFFSET]; 
/*■    JUMP    IS    MADE   TO   SHIFT   ADDR  +     1200H   */ 
/*    WHILE    MTS    IS    TRANSFERRED  */ 

GOTO   CLEAR; 

CLEAR: 

/*    CLEAR  STATUS    LINE   ON   ALL   TERMINALS    */ 

DO    I=(A=0)     BY    I  =  (A=I+1)     WHILE    ( A=  I ;     A::4)      TZERO; 

CALL    [ CLEARSSTATUSSL I NE 1 ; 
END; 

/■*    READ   SYCOR  DIRECTORY    INTO   MEMORY  */ 
CALL  READSD I RECTORY; 

/"*    DISPLAY    IPLSMSG   AT   TERMINAL   0    */ 
BC=15;     DE=. IPLSMSG;    HL=0700H; 
CALL   [MOVBUF1  ; 

/*    ENABLE    INTERRUPTS    SO   TERMINAL    MODULE   MAY  *v 
/*    BE   USED   TO   PROCESS   REPLY  TO    IPLSMSG  */ 

ENABLE; 

0UT(2)  =  (  A=0)  ;  /■*■  RESET  TIMER  *• 
/*  PROCESS  OPERATOR'S  REPLY  */ 
WAIT:    REPEAT; 

CALL    [TERMINALSSTATUS] ; 
UNTIL    ( A: :0)     TZERO; 
CALL    [READSTERMINAL] ; 
I  =  A; 

IF    (A::0DH)    ZERO   GOTO   TEST; 
REPEAT; 

CALL    [READSTERMINAL]; 
UNTIL    (A:  :  0DH)    ZERO; 
TEST: 

IF    (A=I;     A::(B='Y'))     ZERO 

\    (A:  :  (B=79H)  )    ZERO 
THEN    DO; 

A=0;    CALL    [ CLEARSSTATUSSL I NE] ; 
CALL    RECOVER; 
END 
ELSE    DO; 

IF    (A: :(B='N'))     TZERO 

Q    (A: : (B=6EH) )      TZERO 
THEN 

DO;    E='?'; 

CALL    [ WRITESTERMINAL]  ; 
GOTO   WAIT; 
END 
ELSE 

DO; 

A=0;    CALL    [ CLEARSSTATUSSL INEZ ; 

CALL    INITIALIZE; 

END; 
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END; 
GOTO    [MONITOR]  ; 
/*   END   MTSSIPL  */ 


EOF 
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/■*  SERVICE   MODULE  */• 

r   J^*R»^*R*^*^*^^*o  ^^^ *^  J^J^^JP  T^^C^  zfi,  *f\  ^  -P  7*wS  *P3s  .,-.  .7*  ^  *f*  ?^  ^  *(^  ?f*  *s  -N  -f»  *f*  *f* 3p *r* *K ^*  'f*  *fC  *$C  JjC  *?£  wC  »r»  ScC^fC/ 

/*  #/• 

/*   THIS   MODULE  PROVIDES   THE    INTERFACE   BETWEEN"  THE      */ 

/*    USER  AND   ALL  SYSTEM  SERVICES.       THESE  SERVICES    FALL   */ 


/*   GENERALLY    INTO   TWO   CATEGORIES: 

SYSTEM  CALLS    -    THOSE    FUNCTIONS    REQUIRED   TO 
ESTABLISH  THE   DESIRED   VIRTUAL    MACHINE 
ENVIRONMENT. 


(  1) 


(2) 


SERVICE   CALLS    -    THOSE   FUNCTIONS    REQUIRED   TO 
ACCESS    THE   VIRTUAL   DEVICES    PROVIDED   BY  THE 
VIRTUAL   MACHINE   ENVIRONMENT. 


FID 


NAME 


PARM 


VALUE 


SYSTEM  CALLS 


*■/■ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/- 
#/ 
*/ 
*/ 
*/ 
*/ 
*/ 
■*■/ 
*/ 
*/ 
*/ 
#/ 
*/ 
■*/ 
■*■/ 
*/ 
■*/ 
*/ 
■*■/ 
*/ 
*/ 
*/ 
*/ 
•*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/- 
*/ 
*/ 
IN  THIS  TABLE  THE  ENTRY  'LIST'  UNDER  PARM  INDICATES*/ 
/*  THAT  THE  ACTUAL  ARGUMENT  IS  THE  ADDRESS  OF  A  LIST  */ 
/*  OF  REQUIRED  PARAMETERS.  WHEN  'NONE'  APPEARS  UNDER  */ 
/*  THE  SAME  HEADING,  IT  MEANS  THAT  THE  PARM  ARGUMENT  */ 
/*  IS  NOT  REQUIRED.  IF  'NONE'  APPEARS  UNDER  VALUE  THE  */ 
/*   ERROR  CODE   RETURNED    IS    ALWAYS   ZERO.    THE   ENTRY  */ 

/*    •ERROR*     INDICATES   THAT   AN    ERROR  CODE    IS    RETURNED.       */ 
/*   THESE   CODES    ARE   DEFINED   AS   FOLLOWS:  */ 

*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
#/ 
*/ 
*/ 
*/ 
#/ 
*/ 


/"* 
/* 

/•* 

/* 

/* 

/* 

/* 

/* 

/*   SYNTACTICALLY  THE   TWO   TYPES   OF    PROCEDURE   CALL   ARE 

/*    IDENTICAL,     I.E. 

/*  VALUE    =    MTS( FID, PARM) . 

/*    EACH   CALL   TAKES    TWO    ARGUMENTS,    FID    IN   REGISTER  C 

/*    AND   PARM    IN    REGISTERS    DE;    AND    RETURNS    A   VALUE 

/*    IN   THE   A   REGISTER.     THE   FORM  OF    THE   ARGUMENTS    AND 

/*    THE   SIDE   EFFECTS    ASSOCIATED    WITH   EACH   DIFFERENT 

/*   FUNCTION   ARE   DISCUSSED    IN   MORE   DETAIL    IN   THE   MTS 

/*    USER'S    MANUAL.    NOTE    HOWEVER  THAT   THE    ARGUMENT   REG- 

/*    ISTER  ASSIGNMENTS   CONFORM  TO   THE   PL/M  CONVENTION 

/*    FOR  PASSING   PARAMETERS.    THE    FOLLOWING   TABLE   SUM- 

/*    MARIZES    THE   ARGUMENT   OPTIONS    AND    CORRESPONDING 

/*    RETURNED   VALUES. 

/■*■ 

/* 

/-•* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/"* 

/* 


ATTACH 

D I SPLAYS MSG 

LOGIN 

PROTECT 

QUIT 

RESTRICT 

SIZE 

UNPROTECT 


LIST 

ERROR 

LIST 

LIST 

NONE 

LIST 

SIZE 

LIST 


ERROR 

NONE 

ERROR 

ERROR 

NONE 

ERROR 

ERROR 

ERROR 


SERVICE    CALLS 


a 

9 
10 
11 
12 
13 
14 
13 
16 
17 


TERM I N ALSSTATUS 

READSTERMINAL 

WRITESTERMINAL 

WRITESPRINTER 

SELECT3DRIVE 

SET8DMA 

SETSTRACK 

SETSSECTOR 

READSFLOPPY 

WRITESFLOPPY 


NONE 
NONE 

CHARACTER 
CHARACTER 
DRIVE   NR 


TRUE/FALSE 

CHARACTER 

NONE 

ERROR 

ERROR 


DMA    ADDRESS    ERROR 


TRACK   NR 
SECTOR   NR 
NONE 
NONE 


ERROR 
ERROR 
ERROR 
ERROR 


/* 

/* 

CODE 

ERROR 

/•*■ 



/* 

0 

OPERATION    SUCCESSFUL 

/* 

1 

INVALID    COMMAND 

/* 

2 

DISK  NOT   AVAILABLE 

/* 

3 

DISK    IN    USE 

/* 

4 

DISK  NUMBER   ERROR 

/* 

5 

KEY  ERROR 

z'* 

6 

DRIVE    LETTER   ERROR 

/* 

7 

PRINTER   NOT   READY 

/* 

8 

HARDWARE   ERROR 
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/*  9                           TASK  DELETED  */ 

/*  10                             DRIVE    NOT   AVAILABLE  */- 

/*  11                           PRINTER    IN   USE  */ 

/*  12                            OUT   OF    BOUNDS  */ 

/*  #/ 

/*  THE   SERVICE    MODULE    IS    DIVIDED    INTO   THREE    BASIC  */ 

/*  SUBMODULES:  */ 

/*  */ 

/*  ( 1)    USER    INTERFACE  */ 

/*  THIS    SUBMODULE   CONTAINS   THE   ENTRY  POINT    INTO  */ 

/-*  THE   SERVICE    MODULE   FROM   MCP    AND   USER  PRO-  */ 

/*  GRAMS.     IT    IS   HERE   THAT  THE   SERVICE   REQUEST  */ 

/*  IS    INTERPRETED   AND   THE   APPROPRIATE   SERVICE  */ 

/*  ROUTINE    CALLED    FOR   EXECUTION.  */ 

/*  */ 

/*  (2)    SYSTEM  CALLS  */ 

/*  THIS   SUBMODULE   CONTAINS    THE   SERVICE   ROUTINES  */ 

/*  AND    SUPPORTING   PROCEDURES    WHICH   CREATE    OR  */ 

/*  MODIFY  THE   USER'S    VIRTUAL   ENVIRONMENT.  */ 

/*  THESE    ROUTINES    ARE    INVOKED   BY   MCP    IN    RESPONSE  */ 

/%  TO   SYSTEM   COMMANDS    ENTERED    AT   A   TERMINAL.  *• 

/*  THEY  MAY  ALSO   BE   ACCESSED   BY  USER  PROGRAMS  */ 

/■*  DIRECTLY  THROUGH   THE    USER    INTERFACE    SUBMODULE.*/' 

/*  */ 

/*  C3)    SERVICE    CALLS  */ 

/*  THIS   SUBMODULE   CONTAINS    SERVICE   ROUTINES    AND  */ 

/*  SUPPORTING   PROCEDURES    WHICH    ALLOW   A    USER  */ 

f*  PROGRAM   TO    ACCESS    A   VIRTUAL    TERMINAL    OR  */- 

/*  VIRTUAL    FLOPPY   DISK.  */ 

/*  */■ 

/"  5fC  5fs  3f»  JfC  2fC  2f»  JfC  ^fC  ^fC  7j\  ^fC  rK  *K  «f!  *f»  3F  *^*  *f*  *n  *^  *p  *r*  *f»  3n  *r*  *f*  «K  ^  »J^  «r*  *n  5p  3F  *p  *T*  •!■  *^  *p  *F  *n  *<*  *^*  *r»  *t^  *n  *P  *f*  *F  *p  ^*  *n  *r*  *^  *^  r 


/  ^**  vi*  »i*  *i«  n1#  **»  »A«  «-i*  »i*  ■-*»  «4*  -*•  *1»  -4-  -»*  -1*  «4>  * **  »t*  « t*  «-!•  •*+*  »I*  •>*  *•£*  -+•  "-i*  '/-*  *  (-»  * I*  -V  v>*  ~i*  >*»  "**  'J*  ■  t*  *  (■*  -  i*  >t"  •  (-■  M:*  *J*  't'  *^*  "J**  '^*  "^  S1'  "-**  *+*  *>4*  v^*  vt*    ./ 

smtxxxxyKxxxxm-xzzxx***    USER    INTERFACE    ******!(t*sic**sB**s(esB9|es|t*/' 


/****^*^******    INTERMODULE   LINKAGE  MACROS    *******#****/ 

DECLARE   GLOB1    COMMON: 

[INT   MB    TB    M2B]     [M2B:=0600H]     [MB:=0300H]     CTB:  =  1000H] 

C INT  S2B   S3B]       [S2B:=2200H]       CS3B:=2700H] 

[MACRO    MONITOR    '[HEX  MB   +0AAH] ' ] 

[MACRO    INDEX    '[HEX  M2B   +    3H]  '  ] 

[MACRO    ATTACH    '[HEX  S2B    +     179H]  '  ] 

[MACRO   LOGIN    '[HEX  S2B   +    224H] ' ] 

[  MACRO   PROTECT    '  [  HEX  S2B   +    2ECH1 ' 1 

[MACRO   QUIT    '[HEX  S2B   +    364H]  '  ] 

[MACRO   BUMP    '[HEX  S2B   +    12BH]  '  ] 

[MACRO   RESTRICT    '[HEX  S2B   +    36EH] ' ] 

[MACRO    SIZE    '[HEX  S2B    +    3F0H]  '  ] 

[  MACRO   UNPROTECT    '  [  HEX  S2B   +    448H] ' 1 

[MACRO    WRITESPRINTER    '[HEX   S3B    +     172H] ' 3 

[MACRO    SELECTSDRIVE    '[HEX  S3B    +    22CH1 ' ] 

[MACRO    SETSDMA    '[HEX   S3B    +    29  EH]  '  ] 

[  MACRO    SETSTRACK    ' [ HEX   S3B    +    2BBH1  ' ] 

[  MACRO   SETSSECTOR    '  [  HEX  S3B   +    2D0H] ' ] 

[  MACRO    READSFLOPPY    ' [ HEX   S3B    +    2EAH]  ' ] 

[MACRO    WRITE8FL0PPY    '[HEX  S3B    +    2FEH] ' ] 

[  MACRO    MTS8MSG    '  [  HEX   TB    +    837H]  ' ] 

[MACRO    TERMINALSSTATUS    '[HEX   TB    +    8D2H] ' ] 

[MACRO    READSTERMINAL    '[HEX   TB    +    8DCH]  '  3 

[MACRO   WRITESTERMINAL    '[HEX   TB    +    93CH3 ' 3 

[MACRO   PARM0    '  GLOBK  10H)  '  3 

[MACRO    ERROR    '  GLOB1  (  14H)  '  3 

[MACRO    LOCK    '  GLOBK  15H)  '  3 

[MACRO    SVCSSTACKSTOP    ' GLOB1 ( 2BH) ' 3     /*    SVCSSTACK  +    TOP    *s 

[MACRO    TASK    '  GLOBK  24  1H)  *  3 

[  MACRO   TCTSSTATUS    ' GLOB  1 ( 246H) ' 3 

[  MACRO   SWAP9STACK9     '  GLOBK  3BFH)  '  3 
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/J***************  GENERAL.  PURPOSE  MACROS  ***************/• 

[ INT  TOP]       [TOP: =20] 

[MACRO    INPUTSWAITING    *0FFH'] 

/*##*****#***#:»:***:*::**:  DECLARATIONS  sk*******************/' 

DECLARE  (MTS8EXTERNAL,  MTSS INTERNAL,  EXIT, 

MTS , TERMSBLOCK)  LABEL ; 
DECLARE  SAVE  DATA  (0,0,0); 

/-if::*:***:*:******:******:**  ENTRY  POINT  ********:*:*:*:***#******/' 


INTERNAL* MTS:  /*  INTERNAL  ENTRY  POINT  INTO  SERVICE  */ 
/*  MODULE,  I.E.  ENTRY  POINT  FROM  */ 
/*  OTHER  MTS  ROUTINES  */ 

SAVE(  2)  =  (  A=  [  LOCK] )  ;   /*  SAVE  LOCK  VALUE  */ 
[PARM0]=(HL=DE) ;   /*  SAVE  PARM  LIST  ADDRESS  */ 
SAVE=(HL=0+SP) ;    /*    SAVE  USER  SP  */ 
SP= ( HL= . [ SVCSSTACKSTOP] ) ; 
IF  (A=<<C)  !CY  GOTO  MTS; 

A=(A=!C)+1;  /*   CONVERT  FID  TO  POSITIVE  NR  *• 
IF  (A: :3)  ICY  THEN 

INVALID  COMMAND  -  ERROR  1  */ 

GOTO  EXIT;  END; 


DO;  [ ERROR]  =  (  A= 1 ) 
H=0;  L=A; 
DO  CASE  HL; 

/#   0  */ 

/*  -  1  */ 


DO; 
DO; 


/#  -2  */ 
END;  /*  CASE  */ 
GOTO  EXIT; 


NOP;  END; 

CALL  [READSTERMINAL] 

[ERROR]  =  A; 
END; 
CALL  [BUMP] ; 


100H:   /*  ADJUST  EXTERNAL  ENTRY  POINT  LOCATION  */" 
EXTERN ALSMTS:   /*  EXTERNAL  ENTRY  POINT  INTO  SERVICE  */ 
/-*  MODULE,  I.E.  ENTRY  POINT  FROM     */- 
/*   USER  PROGRAMS  */ 

DISABLE; 

SAVE(2)=( A=[LOCK]       8   0FEH) ;       /*   SAVE   LOCK  VALUE   */ 

[LOCKI  =  (A=A  \    0U  ;       /*    LOCK  OUT   SWAPPING   *• 

ENABLE; 

[PARM0]=(HL=DE> ;       /*   SAVE   PARM  LIST   ADDRESS   */ 

SAVE=(HL=0+SP) ;  /*    SAVE    USER  SP    */ 

SP= ( HL= . [ SVCSSTACKSTOP] ) ; 

MTS:       /-*    SYSTEM   AND    SERVICE    ROUTINES    */ 
IF    (A=C;     A:  :  18)     !CY  THEN 

/*    INVALID   COMMAND   -    ERROR    1    */ 
DO;     [  ERROR]  =  (  A= 1) ;    GOTO    EXIT;    END; 
[ERRORJ=( A=0) ;       /*    INITIALIZE   RETURNED   ERROR  CODE   */ 
H=0;    L=C; 
DO   CASE    HL; 

/#*#*****    SYSTEM  CALLS   *******####*****/ 
/•*       0    */       CALL    [  ATTACH]  ; 
CALL    [  MTSSMSG]  ; 
CALL    [LOGIN] ; 
CALL    [ PROTECT] ; 
CALL    [QUIT]  ; 
CALL    [RESTRICT] ; 
CALL    [SIZE] ; 
CALL    [ UNPROTECT] ; 
/********    SERVICE    CALLS    ***************/•' 
/*      8   */      DO;    CALL    [ TERMINALSSTATUS3 ; 
[ ERROR] = A; 
END; 
DO;       CALL    [  TERMINALS STATUS]  ; 

IF    (A: :[ INPUTSWAITING] )    ZERO   THEN 
DO;    CALL    [READSTERMINAL]; 

[  ERROR]  =  A; 
END 
ELSE   GOTO   TERMSBLOCK; 


/* 

1 

#/ 

/* 

2 

■*./ 

/* 

3 

%/ 

/* 

4 

*/ 

/* 

5 

*■/ 

/* 

6 

*/ 

/* 

7 

*/ 

/* 


9    */ 
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END; 

/* 

10 

*/ 

CALL 

/* 

11 

*/ 

CALL 

/* 

12 

*/ 

CALL 

/* 

13 

*/ 

CALL 

/*■ 

14 

*/ 

CALL 

/* 

15 

*/ 

CALL 

/■*■ 

16 

*/ 

CALL 

/# 

17 

*/ 

CALL 

[ WRITESTERMINAL] 
[WRITES PR INTER] ; 
[SELECTS DRIVE] ; 
[  SETSDMA] ; 
[  SETSTRACK]  ; 
[ SETSSECTOR]  ; 
[ READ3FL0PPY]  ; 
[WRITESFLOPPY] ; 


END;    S*   CASE   */ 


EXIT:       /*    COMMON    EXIT   POINT   FOR    INTERNAL   AND    EXTERNAL   */ 
SP=(HL=SAVE) ;       /*   RESTORE   USER  SP   */ 
DISABLE; 

[LOCKI  =  (A=SAVE<2)  )  ;       /*   RESTORE    LOCK  VALUE    */ 
A=  [  ERROR]  ; 
ENABLE; 
RETURN; 
/*    END   MTS    */ 


TERMSBLOCK: 

/*    THIS    ROUTINE    IS    CALLED   WHEN   THE   TASK  CURRENTLY  */ 

/*  ALLOCATED  THE  CPU  IS  BLOCKED  FOR  TERMINAL  1/0.  THE  */ 
/*  ROUTINE  STORES  THE  CURRENT  MACHINE  ENVIRONMENT  IN  */ 
/*   THE   SWAP    STACK  AND   TRANSFERS   CONTROL   TO   THE  */ 

/*    MONITOR   FOR  SELECTION    OF    THE    NEXT   READY  TASK.  */ 

/*    CALLED   BY:    MTS  */ 

/*    SET   BIT   5    IN   TCTSSTATUS    */ 

DE= . [ TCTSSTATUS]  ;     A=  [  TASK]  ;    CALL    [  INDEX]  ; 

M(HL)  =  (  A=M(HL)     \    20H)  ; 


/*    SAVE   ENVIRONMENT  */ 
[ SWAPSSTACK9] = ( HL=SAVE) 
GOTO    [MONITOR]  ; 
/"*    END   TERMSBLOCK  */ 


/*    ONLY  USER  SP    NEEDED   */ 


EOF 

/J**********:**********    SYSTEM    CALLS    a:**************:*****/' 

/  ifi  if*  if*  if*  if*  if*  if*  if*  -f-  if*if»  if*  if*  if*  if*  if*  if*  ^r*  if*  -f*  -T*  if*  -f"  if*  if*  if*  if*  if*  -r*  *r»  if*  if*  ^*  -f*  "T*  if*  if*  if?  *f*if»5f*  if*  if*  if*  "^  if*  if*  if*  if*  if*  if*  if*  if*  if*  / 


/*************     INTERMODULE    LINKAGE   MACROS    ************/ 


[TB:=1000H]     [MB:=030OH] 


] 


DECLARE    GLOB1    COMMON; 

[INT   TB    MB    M2B]        [M2B:=0600H] 

[ INT  S3B]       [S3B:=2700H] 

[MACRO    MONITOR    '[HEX  MB    +    0AAH] 
INDEX    '[HEX  M2B   +    3H]  '  ] 
INDEX2    '[HEX  M2B   +    0DH]  * 
INDEX4     '[HEX   M2B    +     18H]  * 
INDEX8    '[HEX  M2B   +    24H]  ' 
GET    *  [  HEX  M2B   +    38H] * ] 
MOVBUF    '[HEX   M2B    +    41H] 
MINISDISK    '[HEX  M2B   +    54H]  ' 
SIZE9MSG    '[HEX   TB   +    864H]  '  ] 
STATUSSMSG    '  [  HEX  TB   +    88CH] 
CLEARSSTATUSSLINE    '[HEX   TB    +    827H] ' ] 
MTSSMSG    '  [  HEX  TB    +    837H]  '  ] 


[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 


] 


] 


PARM0 

DISK 

DRIVE 

ERROR 

MDBUF 

TASK 


] 


] 


'GLOBK  10H) 

GLOBK  12H) 

•GLOBK  13H) 

'GLOBK  14H) 

'GL0BK3FH) 

GLOBK  24  1H) 
TCTSSTATUS    'GL0BK246H) 
TCTSDM    '  GLOBK  24AH)  '  ] 
TCTSSIZE    '  GLOBK  26 AH)  '  ] 
TCTSBOE    'GLOBK  26 EH) 
TCTSEOE    '  GLOBK  276H) 
DMTSFLAG    'GL0BK27EH) 
DMTSKEY    'GL0BK31EH) 
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[MACRO   VDCSDRIVE    'GLOBK  3AEH)  '  ] 
[MACRO   CNFGSFILE    '  GLOB  1  (  24.4H)  '  ] 
[  MACRO   PRTSCNTRL    ' GLOB  1 ( 39 EH) ' ] 
[  MACRO    READ9BUF    *  [  HEX  S3B    +    07H]  '  ] 
[MACRO   WRITESBUF    '[HEX  S3B   +    23H]  *  ] 

/***************   GENERAL  PURPOSE   MACROS    ***************/ 

[MACRO   WRITE    '2'] 

[MACRO   HARDWARES ERROR    '8*] 

/•******#******#******    DECLARATIONS    ^Jf:******************/' 

DECLARE   PLIST  DATA   ( 0, 0, 0FFH, OFFH.0FFH, 0FFH)  ; 
DECLARE   DSK  DATA   (0) ; 
DECLARE    PA   DATA    ( 0)  ; 

/***#****#*###**##   UTILITY  PROCEDURES   #****************/ 

VAL»DRIVE:       PROCEDURE; 

/"*    THIS    PROCEDURE    VALIDATES    THE    DRIVE    NUMBER    INPUT   TO    *s 
/*    ANY  SYSTEM   CALL   WHICH    REQUIRES    THAT   PARAMETER.  */ 

/*    INPUT:     A   -    DRIVE    NUMBER  TO    BE    VALIDATED  */ 

/*    OUTPUT:     DRIVE    -    NUMBER   OF    FREE    DRIVE    FOUND  */ 

/*  ERROR   -    ERROR   CODE  */ 

f*    CALLED    BY:     ATTACH  */ 

IF    (A: :0FFH)     ZERO    THEN      /*    NO    DRIVE    SPECIFIED   */ 
DO;       /*    SCAN    DRIVE    MAP    FOR   FREE    DRIVE    */ 
DECLARE    LI    LABEL; 

DE=  .  [  TCTSDMJ  ;     A=  [  TASK]  ;     CALL    [  INDEX8]  ; 
B=8; 
REPEAT; 

IF    (A=<M(HL))     !CY  GOTO    LI; 
HL=HL+ 1 ; 
UNTIL    (B=B-1)    ZERO; 

/*    NO   DRIVE   AVAILABLE   -    ERROR    10   */ 
[ ERROR] =(A= 10) ;     RETURN; 
LI I     [ DRIVE] =( A=8-B) ;       /*    FREE    DRIVE    FOUND    */ 
END 
ELSE    IF    (A::8)     JCY   THEN 

/*    DRIVE   NR   >    7    -    ERROR   6    */ 
DO;     [ERROR]  =  (  A=6)  ;     RETURN;     END; 
END   VALSDRIVE; 

VALSDISK:       PROCEDURE; 

j  5f>  *fC  5ft  5ft  5ft  *T*  *n  *t»  *T*  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5p  5ft  5ft  5f^  5ft  5ft  5pt  5ft  5ft  5ft  5ft  5ft  »ft  5ft  »ft  *f»  5ft  5ft  Jf»  5f>  5ft  »ft  ^s  5f*  *ft  •?*  5f>  »^  Jft  Jft  *f>  5^  *P  *T7  5p  f 

/*   THIS    PROCEDURE   VALIDATES    THE   DISK  NUMBER    INPUT  TO      */ 

/*    ANY   SYSTEM   GALL    WHICH   REQUIRES    THAT   PARAMETER.  */ 

/•*    INPUT:     A   -    DISK  NUMBER   TO    BE    VALIDATED  *• 

/*   OUTPUT:    DISK  -    NUMBER  OF    FREE   DISK  FOUND  */ 

/*                         ERROR   -    ERROR   CODE  */ 

/*    CALLED    BY:    ATTACH  */ 

/"  5ft  5ft  5ft  5ft  5fC  Sfi  5ft  5ft  5ft  5f>  5ft  5ft  5ft  5ft  5f*  5ft  5ft  5ft  5fC  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  •ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5f>  5^  5ft  5^  5?t  5f>  5ft  5f^  5^  5^  5r>  5f>  5ft  j 

IF(A::0FFH)    ZERO    THEN      /*    NO   DISK  SPECIFIED    */" 
DO;       /*   SCAN    DISK   MAP    FOR  FREE   DISK  */ 
DECLARE    L2    LABEL; 
HL= .[ DMT* FLAG] ;     B=32; 
REPEAT; 

IF    (A=>M(HL))    CY      /*    DISK  AVAILABLE   */ 
8    (A=>A)      !CY  /*    NOT    IN    USE  */ 

8    (A=>A)     !CY  /*    NOT   PROTECTED      */ 

8    (A=>A)     !CY  /*    NOT    RESTRICTED    */ 

THEN    GOTO    L2; 
HL=HL+1; 
UNTIL    (B=B-1)    ZERO; 

/*    NO    DISK   AVAILABLE    -    ERROR  2    *• 
[  ERROR]  =  (  A=2)  ;    RETURN ; 
L2:     [DISK]  =  (  A=32-B)  ;       /*    FREE    DISK   FOUND    */ 
END 
ELSE    IF    (A::32)     !CY  THEN 

/*    DISK  NR    >    31    -    ERROR   4    */ 
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DO;     E ERROR] =( A=4) ;    RETURN;    END 
ELSE 

DO;    /*   SEE    IF   SPECIFIED   DISK  AVAILABLE   */ 

DE=  .[  DMTSFLAG]  ;    A=[DISK];    CALL    [INDEX]; 

IF    (A=>M(HL)>     !CY  THEN 

/■*   DISK  NOT  AVAILABLE   -    ERROR  2    */ 
DO;     [  ERROR]  =  (A=2) ;    RETURN;    END; 

IF    (A=>A)    CY  THEN 

/*   DISK    IN  USE   -    ERROR  3   */ 
DO;     [ ERROR] =( A=3) ;     RETURN;     END; 

END; 
END   VALSDISK; 

VALSKEY:       PROCEDURE; 

•  i(i  *f*  *r*  *n  *r*  *f*  *r*  *P  *P  *r*  *r»*r»  *f»  *P  *n  *r*  *f»  ^S  *r*  *f>  *P  *p  *r*  *r»  *P  *n  3p  ^**n  *P«F  *n  *■*  ^r*  5p  3f!  *f»  Sp  3p  *f*  *n  *(•  ^*^2fC*T»*T*?f»3P*rC  Jr»5fC2f»  *f>/ 

/*    THIS    PROCEDURE   COMPARES    THE    KEY    INPUT  AS    A   SYSTEM  *• 

/*   CALL  PARAMETER  WITH  THAT  ASSOCIATED   WITH   A   SPEC  I-  */ 

S*   FIED    VIRTUAL   DISK  FILE.  */ 

/*    INPUT:    PARM  -    VARIABLE   HOLDING   4DDRESS   OF   PARM  KEY  */ 

f*  DISK  -    VIRTUAL   DISK  FILE   NUMBER  */ 

/*   OUTPUT:    ERROR  -    ERROR  CODE  */ 

S*   CALLED   BY:    ATTACH  */ 

/   3fC  If*  3fC  *f*  3f»  *P  Jf»  *P  »f»  »p*  *^»  *f*  *f+  -f*  »f»  *f»  »f»  ?r*  *p  *f»  ?f*  *|s  ^f*  *f*  «P  If*  *}*.  »f*rff*  ^fi  JJ* If*  If*  »f*  *?C  If*  If*  If*  If*  »r*  If*  If*  If*  If*  If*  If*  Ij>  3f*  If*  If*  *f»  If*  If*  If*  /^ 

DE=  .  C  DMTSKEY]  ;    A=  [DISK]  ;    CALL    [  INDEX4]  ; 
DE=HL;     HL=[PARM0]; 

DO   B=0    BY  B=B+1    WHILE    (A=4j     A::B)     !ZERO; 
IF    (A=M(DE);    A::M(HL))    ZERO 
\    (IF    (A::20H)    ZERO      8    ( A=M(  HL) -0FFH)    ZERO 
THEN   CY=1    ELSE   CY=0)    CY 
THEN      /*    CHAR  MATCH   */ 
DO; 

DE=DE+1;    HL=HL+I; 
END 
ELSE      /*    KEY  ERROR  -    ERROR  5    */ 

DO;     [ ERROR] =( A=5) ;     RETURN;    END; 
END;    /*   WHILE   */ 
/*   KEYS    MATCH  */ 
END   VALSKEY; 

CLEARSFLAG:        PROCEDURE; 

/  If*  *f*  «n  «t*  If**P  *r»  *f*  *f*  *f*  Ir*If*  *f»  As  *f*  If*  3ji  If*  *f*  *f*  *f*  ^f*  *f*  *r*  If*  If*  If*  If*  *T»  »P  ^>  "^**f*  •f*  «f*  If*  »?»  «^  *f*  If*  *f*  If»-If»  *f»*f»  In  ^*  Jf»  ^s  ^  *r*  ^R  ^s,  ^*>  / 

/*    THIS    PROCEDURE    RESETS    THE    IN   USE    BIT    (BIT    1)  IN           */ 

/*    THE    DMTSFLAG   FOR   A  SPECIFIED    VIRTUAL   DISK.  */ 

/"*    INPUT:    B    -    DISK   NUMBER  */ 

/*    CALLED    BY:    ATTACH,    LOGIN.    CLEARS DM  */ 

/  If*  If!  If*  !fE  *r»  «f»  'P  ^ -f-  SfG  !|»  *?*  V>  in  3|C3(53|i  -r*  «fS  5f»  ^C^fl^ft  Jf*  JfC  ,p  ,fC  3^  ^»  5f»  7fZ  Jfs»f*  -r*  ?s  ?P  JflTrwf*  *fX  -fC  *P«f\  JfC  *p  Jf»2f*ifi  ^3p  If*  ?fJ  5f*?f*/ 

DE= .[ DMTSFLAG] ;    A=B      8    1FH;    CALL    [INDEX]; 
M(  HL)  =  (  A=  M(  HL)       8    0FDH)  ; 
END   CLEARSFLAG; 

CLEARS DM:       PROCEDURE; 

/*   THIS    PROCEDURE   RESETS   ALL   ENTRIES    IN   THE   TCTSDM  */ 

^*    ASSOCIATED    WITH  THE    CURRENT   VALUE   OF   T\SK.  */ 

/■*    CALLED    BY:     LOGIN.     QUIT  *^ 

DE=  .  [  TCTSDM]  ;    A=  [  TASK]  ;    CALL    [  INDEX8]  ; 

C=8; 

REPEAT; 

B=M(HL);    M(HL)=0; 

IF    (A=<B)    CY      8    (A=<A)     !CY  THEN 

DO; 

STACK=HL; 

STACK=  BC ; 

CALL   CLEARSFLAG; 

BC= STACK; 

HL= STACK; 

END; 
HL=  HL+  1 ; 
UNTIL    (C=C-1)    ZERO; 
END   CLEARSDM; 

/***#**************   SYSTEM  ROUTINES   *******************/ 
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BUMP:       PROCEDURE; 

/•*   THIS    INTERNAL   SYSTEM  CALL   DELETES   THE  CURRENT  TASK  */ 

/*    FROM  THE   SYSTEM.  */ 

/*   ARGUMENTS:  */ 

/*         (1)    FID   s    -2  */ 

/*         (2)    PARM  =    NONE  */ 

/*    VALUE:    NONE  */ 

/*    CALLED   BY:     I NTERN ALSMTS ,    9.UIT  */ 

/  ^>  3p  i^.  ?F  «^  ?P  3f»  *P  5R  *f>  Jf*  3p  *R  *Js  -P  ^P  Jf>  *R  jp  *R  rff%  r^K  -P  ^s  3P  *P -K  -t»  *P  *P  5£  •}*  5fs  »fC  5fC  ^3^?p«f*!fC«f»3fE3ft3fW|(«fC3f»«fr2f»«^SfE3r*3fCaf!  / 

/*    WRITE    MINI-DISK  BUFFER    IF    NECESSARY  */ 

CALL    [WRITESBUF]  ; 

IF    (A=[  ERROR3    \   A)     fZERO   THEN 

DO;    E=  [  HARDWARES ERROR]  ;    CALL    [  MTS3MSG]  ;    END; 
/■*■   CLEAR  STATUS   LINE   */ 
A= I  TASK) ;    CALL    C  CLEARSSTATUSSL I NE]  ; 
/*   CLEAR  TCT  */ 
CALL   CLEARSDM; 

DE=  .  CTCTSSIZE]  ;    A=[TASK]  ;    CALL    [  INDEX]  ; 
M(HL)=32;       /*   SIZE   =     16K  */ 
HL=BC+( DE= . [ TCTSSTATUS] ) ; 
M( HL) =  0 ;       ^*    RESET   STATUS    BYTE    */ 

IF    (A=<CPRT$CNTRL])    CY  THEN   /*   PRINTER    IN   USE  */ 
DO; 

A=>A;    B=(A=A   8    03H)  ; 
IF    (A=CTASK1;    A::B)    ZERO   THEN 
DO;       /*   THIS    TASK  HAS    PRINTER   CONTROL   */ 
IF    <A=<CPRTSCNTRL] ;    A=<A)    CY  THEN 
/*    RESET   PRINTER  CONTROL    BYTE    */ 
CPRT$CNTRL]=(A=0) ; 
END; 
END; 
END   BUMP; 

ATTACH :       PROCEDURE ; 

/ 5ft5ft 3fC  JfC 5f! 5fl 5ft  JfC  JfC ZfZ  ^ TfZ 7f> ^fC ^ft  JfC «-fC 5fC*fC 5JC rfC  ?T>2fC 7fZ »r*  *f* ?f?If»  *f»5p»3r»*K»i* -f» *f* 5f» 5R  »f» 7fs ., *  *fC 2f* *fs  *f%  TjUf?  jfCJft yft 5f»  *R2f**fwf*/^ 

/*   SIMULATE   THE    PHYSICAL   OPERATION    OF    LOADING   DISK  */ 

/*    <DISK  NR>     INTO   DRIVE    <  DRIVE   LTR>  .  *■/ 

/*   ARGUMENTS:  */ 

/*       ( 1)    FID    =0  */ 

/*      (2)    PARM   =    BASE    ADDRESS    OF    PARAMETER  LIST  *s 

/*  BYTE   0:    DRIVE   NUMBER   (0-7)  */ 

/■*  BYTE    l:    DISK  NUMBER   (0-31)  */ 

/*  BYTES    2-5:    PROTECTION   KEY    (0-4    CHARS)  */ 

/*    VALUE:    ERROR  CODE  */ 

/*   CALLED   BY:    LOGIN,    MTS  */ 

BC=(HL=[PARM0I)  ;     [  DRIVE]  =(  A=M(  BC)  )  ; 

/"*    VALIDATE   DRIVE    NR  */ 

CALL   VALSDRIVE;     IF    ( A= C ERROR]    S    A)     TZERO   RETURN; 

HL=[PARM0]  +  1  ;     [  DISK]  =(  A=M(  HL)  )  ; 

/■*    VALIDATE   DISK   NR  */ 

CALL   VALSDISK;     IF    ( A= C ERROR]    N    A)     TZERO   RETURN; 

DE=  .  [DMTSFLAG]  ;    A=CDISK]  ;    CALL    C  INDEX]  ; 

IF    (A=M(HL)       8    04H)     TZERO    THEN      /*    DISK  PROTECTED   */ 

DO; 

DE=  .  C  DMTSFLAG]  ;       A=CDISIG;       CALL   [INDEX]; 

IF    (A=M(HL)    8    08H)     TZERO   THEN 

DO;  /*    READ   ONLY  DISK  */ 

/*      SET  UP    READ   ONLY  BIT      */ 
M(HL)  =  (A=M(HL)    S   02H)  ; 
[  DISK]  =  (A=[  DISK]    \    40H)  ;    /*    SET  TCTSDM  BIT   6    *^ 

END 

ELSE 

DO;       /*    VALIDATE   KEY  */ 

[PARM0]  =  (HL=[PARM0]  +  1,  +  1)  ; 

CALL    VALSKEY; 

IF    (A=[ ERROR]     \    A)     TZERO   RETURN; 

END; 
END; 

/*    MODIFY  DMTSFLAG   */ 
DE=  .[  DMTSFLAG]  ;    A=CDISK3       8    1FH;     CALL    C  INDEX)  ; 


135 


M(HL)  =  (  A=M(HL)    nn   02H)  ;       /*   SET  DMTSFLAG  BIT    1    */ 

/*   MODIFY  TCTSDM  */ 

DE=  .  C  TCTSDM]  ;    A=  [  TASK]  ;    CALL    C  INDEX8]  ; 

DE=HL;    A=[  DRIVE];    CALL    [ INDEX] ; 

B=M(HL)  ; 

M(HL)  =  (  A=[DISK]    N    80H)  ;       '*   SET  TCTSDM  BIT  7   */ 

/*   RESET  OLD   DISK'S    IN   USE   BIT  */ 

IF    (A=B      8    40H)    ZERO  CALL   CLEARSFLAG; 

/*   DISPLAY  STATUS    MSG  */ 

B=  (A=[  DRIVE]  )  ;    C=(A=CDISK]       Q    1FH)  ; 

IF    <A=CDISK]       840H)     rZERO   TBEN   A=72H  ELSE   A=  '     '; 

CALL   [  STATUSSMSG] ; 

END   ATTACH; 

LOGIN:       PROCEDURE; 

/  Jft  3f»  3p  3p  3JC  3^  *fc  3f»  Jfs  -f»  »S  *S  »r*  *^  ^  Jf*  ^P  *N  ^s  *K  *^  JJs  Pf*  ^s  ^s  5P  3j>  Jf»  7fc  «■£  3^  *p  «^  ?f»  »^  *^  3p  *ft  3^  *K  3ft  3^  3^  *P  3^  3^  3f%  3^  *fC  *f%  3^  3p  3P  *f*  / 

/*  THIS  SYSTEM  CALL  NOTIFIES  MTS  THAT  THE  REQUESTING  */ 
/%  TERMINAL  IS  NOW  ACTIVE,  AND  SIMULATES  THE  PHYSICAL  */ 
/*  COLD-START  BOOTSTRAP  OPERATION.  THE  BOOTSTRAP  LOAD  */ 
/*  TAKES  PLACE  FROM  VIRTUAL  DRIVE  A.  THE  VIRTUAL  DISK  */ 
/*   ATTACHED   TO   THIS   DRIVE   MAY  BE   SPECIFIED    IN   THE  */ 

/*  PARAMETER  LIST,  OR  DISK0  WILL  BE  ASSUMMED  AS  THE  */ 
/*    DEFAULT.  */ 

/*    ARGUMENTS:  */ 

/*       ( 1)    FID    =    2  */ 

/*      (2)    FARM  =    BASE   ADDRESS    OF    PARAMETER  LIST  */ 

/-*  BYTE   0:    DISK   NUMBER   (0-31)  */- 

/*  BYTES    1-4:    PROTECTION   KEY   (0-4    CHARS)  */ 

/*    VALUE:    ERROR  CODE  */ 

/   »fC  *fc  3|C  *f»  *f»  ?P  3P  *fv  ^7*  *f»  *fs  3^  *^  .f*  *P  3f%  *ft  3^  *f*  «p  »TS  r^  r&  -^  -^  JP  JP  *^  *^  *f*  Jf^  *]%  Jf*  *^  'S  »T*  "1>  *^  *J*  •^  *^  *^  *N  '^  *fc  *0  'T*  *0  ^^  ^>  ^*  ^^  ^P  *^  / 

/*    WRITE   MINI-DISK  BUFFER    IF    NECESSARY  */ 

CALL    [WRITESBUF] ; 

IF    (A=E ERROR]    \    A)     TZERO    RETURN; 

/*    RE- INITIALIZE   TCT   */ 

CALL   CLEARSDM; 

/*    PROCESS    DISK  PARAMETER   */ 

IF    (HL=[PARM0];    A=M(HL);    A::0FFH)     !ZERO   THEN 

DO;    /*    DISK  SPECIFIED    */ 

BC=5;    DE=HL;    HL= . PLIST( 1 ) ; 

CALL    CMOVBUF]  ;    t  PARM0]  =  (  HL=  .  PLIST)  ; 
END 
ELSE 
DO;    /*    ASSUME   DISK  0    */ 

PLIST(  1)  =  (A=0)  ;    PLIST(2)=(  A=*M'  )  ; 

PLIST(3)=( A= 'T' ) ;    PLIST( 4)  =  (  A= ' S' ) ; 

PLIST(5)=(A="     '); 

[PARM0]  =  (HL= .PLIST)  ; 
END; 

CALL   ATTACH; 

IF    (A=[  ERROR]    N    A)     ?ZERO   RETURN; 
B=  0 ;    C=  (  A=  C  TASK]  )  ; 
HL=BC+( DE= . [ TCTSSTATUS] ) ; 
M(HL)=1;       /*    SET   BIT   0    */ 
/■*    DISPLAY  SIZE   MSG   */ 

DE= . C  TCTSSIZE] ;    A=  [  TASK] ;    CALL    C  INDEX]  ; 
CY=0;     A=>M(HL);     CALL    CSIZESMSG]; 
END   LOGIN; 

UPDATE8CNFGSFILE:       PROCEDURE; 

/***»:»:**********************^******^*****^*****:*::*!:*::*:*:*:/ 

/-*    THIS    ROUTINE    PROVIDES    INDEXING    INTO   THE   MTS  */ 

/*   CONFIGURATION   FILE   AND   PERMITS    MODIFICATION   OF  */ 

x*    OF    THE   CONFIGURATION    FILE    WHICH    IS    NECESARRY  */ 

/*    WHEN    PROTECTING,    UNPROTECTING   OR   RESTRICTING  */ 

/■*    USER   FILES.  *^ 

/*   CALLED   BY:       PROTECT,    UNPROTECT,    RESTRICT  */ 

PA=A;       CALL    [WRITESBUF]; 

BC=  (  HL=  [  CNFG«F  ILE]  )  ; 

CALL    [ READS BUF] ; 

DE= .  [  MDBUF] ;    A=DSK;       CALL   [  INDEX8] ;       DE=HL; 

A=DSK;       CALL    C  INDEX4]  ;       B=0;       C=(A=DSK); 

HL=HL+BC;       HL= HL+ ( DE= 8 ) ; 
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STACK=HL;    BC=(HL= C PARM0] ) ;    HL= STACK;    BC=BC+1;    D=0; 
REPEAT? 

A=M(BC);     IF   (A::0FFH)    ZERO  THEN   A=20H; 

M(HL)=A;       /*    CHANGE   FF    PARAMETER  TO   SPACE   */ 

BC=  BC+  1 ;    HL=  HL+  1 ;    D=  (  A=  D+ 1 )  ; 
UNTIL    (A: :4)    ZERO; 

M(HL)  =  (  A=PA)  ;       /*    STORE    PROTECTION    ATTRIBUTE   */ 
[VDC$DRIVE]=( A=[ VDCSDRIVEI    \   80H) ; 
END   UPDATESCNFGSFILE; 

PROTECT :       PROCEDURE ; 

/*   THIS    SYSTEM  CALL   ADDS    THE   READ/WRITE   PROTECTION         */- 

/■*   ATTRIBUTE   TO   A   SPECIFIED   VIRTUAL   DISK  FILE.  */ 

/*   ARGUMENTS:  */ 

/*      (  1)    FID   =    3  */ 

/*      (2)    PARM   =    BASE   ADDRESS   OF   PARAMETER  LIST  */ 

/*  BYTE   0:    DISK  NUMBER   (0-31)  */• 

/*  BYTES    1-4:    PROTECTION   KEY   (0-4   CHARS)  */ 

S*    VALUE:     ERROR  CODE  */ 

IF    (HL=CPARM0];       DSK=  (  A=M(  HL)  )  ;       A::  32)     !CY  THEN 
DO;       /*    DISK  #    >    31    */ 

[  ERROR]  =  (A=4)  ; 

RETURN; 
END 
ELSE 

IF    (HL=HL+1;    A=M(HL);    A::0FFH)    ZERO   THEN 
DO;       /*   KEY  ERROR  */ 

[  ERROR]  =  (  A=  5 )  ; 

RETURN; 
END 
ELSE 
IF    ( DE= . [ DMTSFLAG] ;       A=DSK;       CALL   [INDEX]; 

A=M(HL);    A=>A;    A=>A;    A=>A)    CY  THEN 
DO;       /*   DISK  ALREADY  PROTECTED   */ 

CERROR]=( A=3) ;       RETURN; 
END 
ELSE 
DO; 

DE=  .  CDMTSKEYl  ;       A=DSK;       CALL    E  INDEX4]  ; 

BC=HL;        HL=[PARM0]  +  1;        D=0; 

REPEAT;       /*    UPDATE    DMTSKEY  *• 

A=M(HL);     IF    (A::0FFH)    ZERO   THEN   A=20H; 
M(BC)=A;    BC=BC+1;     HL=HL+1;     D*<A»D+1>; 

UNTIL    (A: :4)    ZERO; 

DE= . [ DMTSFLAG] ;       A=DSK;       CALL    [INDEX]; 

M(HL)  =  (  A=M(HL)     \    04H)  ;       /*    SET   PROTECT   BIT   *s 

A='P*;       CALL    UPDATESCNFGSFILE; 
END; 
END    PROTECT; 

QUIT:       PROCEDURE; 

/*    THIS    SYSTEM  CALL    NOTIFIES    MTS    THAT  THE  REQUESTING   */ 

s*   TERMINAL    IS    NO    LONGER   ACTIVE.  */- 

/*   ARGUMENTS:  */ 

S*      (  1)    FID    =    4  */- 

/*      (2)    PARM   =    NONE  */ 

/*   VALUE:    NONE  */ 

CALL   BUMP; 
GOTO    [MONITOR]  ; 
END   QUIT; 

RESTRICT:       PROCEDURE; 

/  JfC 3fC 5fC 5fi 5f*  JfT ^fC  ^fC  ^s  2fC  ^J\  ^f^yK^fZ  *{Z  1ft  JfC  5K  ^Z  ^»  ^S^fC  ^fl^fl  *rC  *fJ;|C -r*  «jC  *fZ  ?f.  »f»*7.  •*■•  ^fZ  »fi*TC-f%*7%  *fZ  7jZ  rjZTfc  *f* «f>  *^  rjZ  >fZ  *fZrjZ  2f»3f»?f*/ 

/*  THIS  SYSTEM  CALL  ADDS  THE  READ  RESTRICTION  ATTRI-  */ 
/*  BUTE  TO  A  SPECIFIED  PROTECTED  VIRTUAL  DISK  FILE.  */ 
/*    ARGUMENTS:  *' 

s*      ( 1)    FID    =3  */ 

/*      (2)    PARM   =    BASE   ADDRESS   OF    PARAMETER  LIST  */ 

/"*  BYTE   0:     DISK  NUMBER   (0-31)  */ 
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/•*  BYTES    1-4:    PROTECTION   KEY    (0-4   CHARS)  *S 

/"*   VALUE:    ERROR  CODE  */ 

IF    (HL=[PARH0]  ;       DSK=  (  A=  M(  HL)  )  ;       A::  32)     !CY  THEN 
DO;       /*    DISK  >    31    */ 

C ERROR]  =  (  A=4)  ;    RETURN; 
END; 
IF    (  DE=  .  C  DMTSFLAG]  ;       A=DSK;       CALL    [INDEX!; 

A=M(HL);       A=>A;       A=>A)    CY  THEN 
DO;       /*      DISK    IN   USE   */ 

[  ERROR] =( A=3)  ;       RETURN; 
END; 
IF    (  DE=  .  C  DMTSFLAG]  ;       A=DSK;       CALL    [INDEX]; 

A=M(HL);       A=>A;       A=>A;       A=>A)     !CY  THEN 
DO;       /*   DISK  NOT  PROTECTED   */ 

[ ERROR] =  (  A=  5 )  ;       RETURN ; 
END; 

DE= . C  DMTSKEY]  ;    A=DSK;    CALL    [ INDEX4] ; 

STACK=HL;    BC= ( HL= [ PARM0] ) ;    BC=BC+1;    HL=STACK;    E=0; 
REPEAT; 

IF    (A=M(BC);        IF    (A::0FFH)    ZERO   THEN   A=20H; 
A:  :M(HL))     !ZERO   THEN 

DO;       /*      KEY  DOES    NOT   HATCH   */ 
[ ERROR]  =  (  A=5) ;       RETURN; 

END; 

HL=HL-H;       BC=BC+1;       E=(A=E+1); 
UNTIL    (A: :4)    ZERO; 

/*      SET  RESTRICTION   BIT    IN   DMTSFLAG      */ 
DE=  .  [  DMTSFLAG]  ;       A=DSK;       CALL    [  INDEX!  ; 
M(HL)  =  (A=M(HL)    \   08H)  ; 
A='R';       CALL    UPDATESCNFGSFILE; 
END   RESTRICT; 

SIZE:       PROCEDURE; 

s  3p *& 3^  7fc *?•  *£ 3^  JfC 7f>  rfZ  *p  »f»  *t^  »p  *^  3p  *f>  *f»  »^  7f»  *fZ  3f*  -P ?P  »f>  *K  *f*  »?*  !p  »r*  *n  ^^ ^^ *■*  ^  *«* ^*  ^*  *>*  *P  *P  Sp *^  *P  *^  *^  *r*  *r» "f»  *r* *t* *p *r* ^^ 

/*  THIS  SYSTEM  CALL  SETS  THE  SIZE  OF  THE  USER'S  SWAP  */ 
/*    IMAGE.  */ 

/*   ARGUMENTS:  */ 

/*      ( 1)    FID    =6  */ 

/*      (2)    PARM   =    REQUESTED   SIZE    IN   KILOBYTES  */ 

/*    VALUE:    ERROR  CODE  */ 

/*   COMPARE   REQUESTED   SIZE   WITH   MAX  SIZE   */ 
IF    (A=[PARM0];     A::49)      !CY   THEN 

/*   OUT  OF   BOUNDS   -    INVALID   CMD   ERROR    1    */ 

DO;     [  ERROR]  =  ( A=l)  ;    RETURN;    END; 
S*   COMPARE    REQUESTED   SIZE   WITH   SWAP    FILE   SIZE   */ 
DE=  .  [  TCTSBOE]  ;    A=  [  TASK]  ;    CALL   [  INDEX2]  ; 
CALL    [GET];    B=0;    C= ( A=< < [ PARM0] ) ; 
HL=BC+DE;    STACK=HL;       /*    SAVE   SUM  */ 
DE=  .  [TCTSEOE]  ;    A=[TASK]  ;    CALL    [  INDEX2]  ; 
CALL    [ GET] ;    BC=  BC+ 1 ; 
DE= STACK;       /*    RESTORE   SUM   */ 
A=C-E;     A=B~D; 
IF   MINUS   THEN 

/*    OUT   OF    BOUNDS    -    INVALID   CMD   ERROR    I    *• 

DO;     [ ERROR] =( A= 1 ) ;    RETURN;    END; 
/*   DISPLAY  SIZE   MSG   */ 
A=[PARM0];    CALL    [SIZESMSG]; 
/*    UPDATE   TCT   */ 

DE=  .  [TCTSSIZE]  ;    A=[TASK];    CALL    [INDEX]; 
M(HL)  =  (  A=<<  [PARM0])  ; 
END   SIZE; 

UNPROTECT:       PROCEDURE; 

/*  THIS  SYSTEM  CALL  DELETES  THE  READ  RESTRICTION  AND  */ 
S*  READ/WRITE  PROTECTION  ATTRIBUTES  FROM  A  SPECIFIED  */ 
/*    VIRTUAL   DISK  FILE.  *' 

/*   ARGUMENTS:  */ 

S*      ( 1)    TID   ■    7  *' 

/*      (2)    PARM   =    BASE   ADDRESS   OF   PARAMETER  LIST  */ 

/"*  BYTE    0:     DISK   NUMBER    (0-31)  *' 
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/■*  BYTES    1-4:    PROTECTION    KEY    (0-4    CHARS)  */ 

/*   VALUE:    ERROR  CODE  */ 

IF    (HL=[PARM0];       DSK= ( A= M( HL) ) ;       A::32)     ICY  THEN 
DO;       /*   DISK  *   >    31    */ 

CERR0R]  =  (A=4)  ; 

RETURN; 
END 
ELSE 

IF    (HL=HL+1;    A=M(HL);    A::0FFH)    ZERO   THEN 
DO;       /*    KEY   ERROR  */ 

[  ERROR]  =  (A=5)  ; 

RETURN; 
END 
ELSE 
DO;       /*   CHECK    IF   DMTSKEY  MATCHES    KEY  */ 

DE=  .  CDMTSKEY]  ;    A=DSK;    CALL    [  INDEX4]  ; 

STACK=  HL ;    BC=  (  HL= [ P  ARM0 ] )  ;    BC=  BC+ 1 

REPEAT; 

IF    (A=M(BC);     IF    (A::0FFH) 
A::M(HL))     TZERO   THEN 
DO;       /*    DMT3KEY   NOT   =    KEY  *^ 

[ERROR] =(  A=5)  ;     RETURN; 
END; 
HL=HL+1;        BC=BC+1;        E=(A=E+1); 

UNTIL    (A: :4)    ZERO; 
END; 

/■*   SET  DMTSKEY   =    20H,  20H,  20H,  20H   */ 
DE= .  [  DMTSKEY] ;       A=DSK;       CALL    [  INDEX4]  ; 
REPEAT; 

M(HL)=(A=20H)  ;       HL=HL+1;       E=(A=E+1) 
UNTIL    (A: :4)    ZERO; 

DE=  .  [DMT3FLAG]  ;       A=DSK;       CALL    [  INDEX!  ; 
/*    RESET   BIT   3    AND    4    OF    DMTSFLAG   */ 
M(HL)  =  (  A=M(BL)     8    03H)  ; 
A=     '     ' ;       CALL    UPDATESCNFGSF ILE; 
END    UNPROTECT; 


HL= STACK;    E=0; 
ZERO    THEN    A=20H; 


E=0; 


EOF 

p  5fI5(C3ft5fC5f»if»5fC3f»  JfC^fCifC  ^P*P  2P2p2p^I  «P  »P  -fl^t  »P  ?P ;P  IP  -P  TjTZfZ  .f.  ^P  7K  ^f%,JZ  -P  jpjppp^p  Jp?p  ;P?P3P?P?P  ^P  rfZrfZ  -^  *P  >P^P  ^P  ?P  f 

/*******#****#*##***    SERVICE    CALLS    ip*******:*********:*:**/' 

/  JfC  5fC  tf>  *f»  »f»  *p  2p  *P  *P  *P  *P  *P  *P  *P  *P  *P  5p  *P  ^P  3p  *P  *P  *P  ^P  5P  *P  2p  *P  *p  ^P  ^p  ?p  *fs  *P  ?P  *p  ?p  *p  ^*  ^  *P  <P  »P  *P  «P  *P  *p  *P  *P  *P  *p  *P  »P  *P  / 


/*************    INTERMODULE   LINKAGE    MACROS    ************/ 


DECLARE   GLOB1    COMMON; 

[  INT  M2B]  CM2B:=0600H] 

[MACRO    INDEX    '[HEX  M2B    +    3H]  '  ] 

INDEX2    '[HEX  M2B   +    0DH1  '  ] 

INDEX8    '[HEX   M2B    +    24H]  '  ] 

GET    '  [  HEX  M2B   +    38H] ' ] 

MOVBUF    '[HEX  M2B   +    41H]'] 

MINISDISK    '[HEX   M2B    +    54H1  '  ] 

READSPRTSBUF    *  [  HEX  M2B   +    9EH] ' ] 

PRTSSTAT    ' GLOB 1(0)'] 

BUF9PTR    'GLOBK  1)  '  ] 

PARM0    'GLOBK  10H)  '  ] 

PARM1     'GLOBK  1 1H)  '  ] 

DISK    'GLOBK  12H)  '  ] 

DRIVE    'GLOBK  13H)  '] 

ERROR    'GLOBK  14H)  '] 

MDBUF    'GL0BK3FH)  '  ] 

MDSAD0    'GL0BK23FH) 

MDSAD1     'GLOBK240H) 

TASK    ' GLOBK  24  1H)  '  ] 


[MACRO 
[MACRO 
[MACRO 
[  MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 


TCTSDM 

DMT3B0E 

DMTSEOE 

PRTSBOE 

PRT8E0E 

PRTSSEC 


GL0BK24AH)  * 

*  GLOB 1 ( 29EH) 

*  GLOBK  2DEH) 

*  GLOBK  39FH) 

*  GLOBK  3A1H) 
•GL0BK3A3H) 
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[MACRO   VDCSDRIVE    ' GLOB 1 ( 3 AEH) * ] 
[MACRO   VDCSBOE    '  GLOBH  3AFH)  '  ] 
[  MACRO   VDCSEOE0    ' GLOB 1 ( 3B 1 H)  '  ] 
[  MACRO   VDCSEOE 1     ' GLOB 1 ( 3B2H) ' ] 
[  MACRO   VDCSSECTOR    ' GLOB  1 ( 3B3H) ' ] 
[MACRO   VDC8TRACK    ' GLOB1 (3B4H) ' ] 
[  MACRO    VDCSDMA    ' GLOB  1 ( 3B5H)  ' ] 
[MACRO   PRTSCNTRL    '  GLOBK  39  EH)  '  ] 

/***************    GENERAL   PURPOSE    MACR08    ***************/• 

[  MACRO   READ    ' 1 ' ] 
[MACRO    WRITE    '2'  ] 
[MACRO   CNTRLSZ      ' 1AH' ] 
[  MACRO   PRTSRDY    '  0B0H'  1 
[MACRO   CNTRLSR    '  12H'  ] 

•"sic*********:***:****    MODULE    DECLARATION    ik******************/ 

DECLARE    CHAR   DATA    (0); 

/**************:***    UTILITY  PROCEDURES    *****************/ 

READS BUF :       PROCEDURE ; 

/  5ft  5fv  3fv  5f>  5ft  3fC  3f»  3f^  3fC  3f»  5ft  3ft  5ft  5ft  5ft  3ft  3ft  3ft  3ft  3ft  3ft  3ft  5ft  3ft  3ft  3JC  5ft  Jft  ^fl  3ft  3ft  3ft  3ft  5*C  5ft  5ft  5ft  5ft  5*t  3ft  5fC  5ft  5ft  5fC  3ft  3ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  / 

/*  THIS    PROCEDURE   READS    A  SPECIFIED    MINI-DISK  SECTOR  */ 

/*  INTO    MDBUF    AND    UPDATES    MDSAD.  */ 

/*  INPUT:    BC    -    MINI-DISK  SECTOR   NUMBER  */ 

/■*  OUTPUT:     ERROR  -    ERROR   CODE  */ 

/*  CALLED    BY:     MAP,     UPDATESCNFGSFILE  */ 

f    5ft -f»  5f»  5f*  5^  5f*  5ft  5ft  5f«  5ft  5ft  5ft  57^  3f»  5ft  5ft  5ft  5f»  5ft  3ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  Jfi.  *jZ  «K  -■>  »S  .;« <ft  5ft  5ft  5ft  5fC  3ft  5ft  5fC  5ft  5ft  «,v5ft  5ft  5|C  5rC  5ft  3ft  3ft  5ft  W(C  5f»  / 

DE=.  [  MDBUF]  ;     L= [ READ] ;    CALL    [MINISDISK3; 
IF    (A::0)     TZERO   THEN 

/*    HARDWARE   ERROR  -    ERROR  8   */ 

DO;     [  ERROR] =(  A=8) ;     RETURN;     END; 
[MDSAD0]  =  (HL=BO  ; 
END    RE ADS BUF; 

WRITESBUF:       PROCEDURE; 

r     *f»  *f»  *0  *r*  5^  3f»  *f»  5ft  ^  ^^  3f»  3f»  »f»  3f»  5f»  Jf»  3f*  5ft  5f»  3fs  5P  5J»  5f»  5ft  5ft  ^s  5ft  5js  5f-»  5f»  5Jh  5ft  ^s  5ft  »J»  5ft  5ft  5ft  5ft  5ft  ^f»  5^  5ft  5f»  5f*  3ft  3f»  5^  5f\  5^  5f*  5ft  5ft  5ft  / 

/*    THIS    PROCEDURE    CHECKS    THE    MODIFICATION    BIT    IN  */ 

/*    VDCSDRIVE   TO   DETERMINE    IF   THE   CONTENTS    OF    MDBUF  */ 

/%    HAVE    BEEN    ALTERED.     IF    SO,     THE    BUFFER    IS    WRITTEN  TO    */ 

/-*    THE    MINI-DISK   AND   THE    MOD    BIT    IS    RESET.  */ 

/*    CALLED   BY:    BUMP,    MAP,    LOGIN,    UPDATESCNFGSFILE,  */ 

/*                                 SELECTSDRIVE  */ 

IF    (A=< [VDCSDRIVE] )     !CY  RETURN; 
BC=(HL=[MDSAD0]  )  ;    DE=  .  [MDBUF]; 
L=[WRITE];    CALL    [MINISDISK]; 
IF    (A: :0)     rZERO   THEN 

/*   HARDWARE   ERROR  -    ERROR  8   */ 

DO;  [  ERROR]  =  ( A=8)  ;  RETURN;  END; 
[ VDCSDR I VE]  =  (A=[ VDCSDRIVE]  8  7FH)  ; 
END   WRITES BUF; 

MAP:       PROCEDURE; 

/*    THIS    PROCEDURE    CALCULATES    THE    RELATIVE    OFFSET  OF    A  *• 

/*   SPECIFIED   VIRTUAL   FLOPPY  DISK  SECTOR    IN   THE   MINI-  */ 

/*    DISK   FILE    AND    THE    BASE    ADDRESS    OF    THAT   SECTOR    IN  */ 

/■*   THE   MINI-DISK  BUFFER  AFTER  THE   FILE    IS    READ.    THEN  */ 

/*    IT   CALCULATES    THE    ACTUAL   MINI -DISK  SECTOR   NUMBER  */ 

/*    CONTAINING   THE    ADDRESSED    FLOPPY   DISK   SECTOR,     AND  */ 

/*   COMPARES    IT  WITH   THE   CURRENT  CONTENTS    OF    MDBUF.     IF  */ 

/*    THE   TWO   ARE    NOT   EOUAL,     THE    OLD    BUFFER    IS    WRITTEN  */ 

/*   TO   THE   MINI-DISK  AND   THE   NEWLY  CALCULATED   SECTOR  */ 

r*    NUMBER   READ    IN    TO   REFILL   THE    BUFFER.     A   COMPARISON  */ 

/*    IS    ALSO    MADE   BETWEEN    THE   CALCULATED   MINI-DISK  */ 

/"*   SECTOR  NUMBER  AND   THE   FILE'S    EOE   VALUE   TO   ENSURE  */ 

/*    THAT   THE    SPECIFIED    VIRTUAL    DISK  SECTOR   ADDRESS    IS  */ 

/*    WITHIN   THE   BOUNDS    OF    THE   FILE.  */ 

/*    INPUT:     VDCSTRACK  -    FLOPPY   DISK   TRACK   NUMBER  */ 
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/*  VDCSSECTOR  -    FLOPPY  DISK  SECTOR  NUMBER  */" 

/*   OUTPUT:    BC    =     128   =    FLOPPY  DISK  SECTOR  SIZE  */ 

/*  HL   =    BASE   ADDRESS   OF   FLOPPY  DISK  SECTOR  */ 

/-*  IN   BUFFER  */• 

/*   CALLED  BY:    READSFLOPPY,    WRITESFLOPPY  */ 

r   *^*r*^&  ^S *^ ^^ *N *^ ^S *f* ^P  *^*^  *^  t» *^ *p  ^>  ^* ^S  *f* *f* ^^  *^  ^S *P  *^ ^>*^  *^  ^S  *P  *^ *^  *o  *f* ^^  *P  *o  V  ^^  *r»*f*  *f* *P  *f»  *f* *^  «r»  *P 3^*p*^ *f%  f 

DECLARE   BUFAD   DATA   (0,0); 

DECLARE   SECNR  DATA   (0,0); 

D=  (  A=  C  VDCSTRACKI  )  ; 

E= ( A=  C  VDCSSECTOR] ) ; 

/*   MULTIPLY  TRACK  *    BY  26 ;    ADD   SECTOR  #;    SUBTRACT    1    *s 

B=0;    CY=0; 

A=<D;    L=A;    /*   2    *    TRACK;       SAVE    IN    L    REG   */ 

CY=0;    A=<A;    /*   4    *    TRACK  */ 

IF   CY  THEN   B=l;       /*   SAVE   HIGH   ORDER  BITS    IN   B   */ 

A=A+L;    C=A;       A=L;    /*   SAVE    2    *    TRACK    IN   ACCUM.    */ 

HL=0;    HL=HL+BC;    HL=HL+BC;    HL=HL+BC;    HL=HL+BC; 

/-*    HL   NOW  CONTAINS    24    *    THE   TRACK  *   */ 

B=0;    C=A;    HL=HL+BC;       /*   HL   CONTAINS   26    *   TRACK  #   */ 

C=E;    HL=HL+BC;    HL=HL-1;    /*    SECTOR   *    ADDED   ON    AND   SUB    1    */ 

/*   DIVIDE   CONTENTS    OF   HL   BY  4   */ 

DE=HL;    f*   SAVE   26    *    TRACK  +    SECTOR   *   -I    */ 

CY=0;    D=(A=>D);       E=(A=>E); 

CY=0;       D=(  A=>D)  ;       A=>E; 

B=D;       C=A;       /*   BC   HAS    (26    *   SECTOR  #   -1)    /   4   */ 

/*   COMPUTE   BUFFER  OFFSET  */ 

IF    ( A=  C  VDCSTRACK]  ;    A=A   8    01H)    ZERO   THEN 

A=  [  VDCSSECTOR]    /*    TRACK    IS   EVEN   */ 
ELSE 

A= C VDCSSECTOR] ,+ 1 ,+ 1 ;    /*   TRACK    IS   ODD   */ 
TEST: 

IF    (A: :3>     !CY  THEN 

DO; 

A=  A-4 ; 

GOTO   TEST; 

END; 
L=A-1;    H=0; 
DO   CASE    HL; 

DE=0; 

DE= 128; 

DE=256 

DE=384 
END; 

/*   DE    =    RELATIVE   BUFFER   ADDRESS    */ 
BUFAD=(HL=.CMDBUF]  ,    +DE)  ; 

/*    CALCULATE    AND   SAVE   NEW   MINI -DISK  SECTOR  NR   *• 
SECNR= ( HL= [ VDCSBOE]     +    BC) ; 
/*   COMPARE   NEW  SECTOR  NR  WITH   VDCSEOE   */ 
A=C VDCSEOE0J-L;    A= C VDCSEOE1 ] — H; 
IF   MINUS   THEN 

/*    OUT   OF    BOUNDS    -    ERROR    12    *• 

DO;     [ ERROR]  =  (  A= 12)  ;     RETURN;     END; 
/*    COMPARE    NEW  SECTOR  NR   WITH   MDSAD    */ 
IF    (A=CMDSAD0];    A::L)        'ZERO   THEN 

CY=0 
ELSE    IF    ( A= C MDSAD 1 ] ;    A::H)     !ZERO   THEN 
CY=0 

ELSE   CY=1; 
s*    WRITE    OLD   SECTOR   AND   READ   NEW    IF   NECESSARY  *s 
IF    ICY  THEN 

DO;       /*   NOT  EQUAL   */ 

CALL   WRITESBUF; 

IF    (A=[  ERROR]    \    A)     !ZERO   RETURN; 

BC=  (HL=  SECNR)  ;    CALL   READSBUF; 

IF    (A=C ERROR]    S    A)     TZERO   RETURN; 

END; 
/*    SET   UP    REGISTERS    FOR   RETURN    */ 
BC=128;    DE= ( HL= BUFAD) ; 
END    MAP; 

WRITESPRTSBUF:       PROCEDURE; 
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/*  THIS    ROUTINE    IS    CALLED   BY  WRITESPRINTER  WHEN   THE  */ 

/*  PRINT  BUFFER  LOCATED    BETWEEN    100    -    300H    IN   MEMORY  */ 

/*  IS   FULL   OR  WHEN   A  CONTROL   Z    (EOF    INDICATOR)    HAS  */ 

/•*  BEEN   WRITTEN    INTO   THE   BUFFER.        IN   BOTH   CASES    THE  */ 

/*  CONTENTS   OF   THE   BUFFER    IS   WRITTEN   ONTO   THE   MINI-  */ 

/*  DISK   IN   MTSPRT.  */ 

/*  CALLED   BY:    WRITES PR INTER  */ 

HL=[PRTSSEC1 ;    BC=HL; 

DE= 100H;    L=[  WRITE];       /*    SET   UP    FOR  CALL   TO   MINIDISK  */ 

CALL   CMINISDISKJ  ; 

IF(A: :0)     'ZERO   THEN 

DO; 

CERR0R]  =  (A=8)  ; 

RETURN; 
END; 

HL=  C  PRTSEOE]  ; 

IF    (A=H;    A::B)    CY  8    (A=L;    A::C)    CY  THEN 
DO;    /*   EXCEEDED   EOE   OF    MTSSPRTSFILE  */ 

[  ERROR]  =  (A=  12)  ; 
END 
ELSE 
DO; 

BC=BC+1; 

CPRTSSEC]=(HL=BC) ; 

/*      PRTSSEC    INCREMENTED      */ 
END; 
END    WRITESPRTSBUF; 

/J**:*:*****:***:*:******:    SERVICE    ROUTINES    ***************:«**/' 

WRITESPRINTER:       PROCEDURE; 

/*   THIS   SERVICE   CALL  IS   MADE   TO   WRITE   CHARACTERS    INTO  */ 
/*    THE   PRINTER   BUFFER   WHICH    IS    LOCATED   BETWEEN    100    -      */ 

/*   300H    IN   MEMORY.  */ 

/*   ARGUMENTS:  */ 

/*      ( 1)    FID    =11  */ 

/*      (2)    PARM   =    ASCII  CHARACTER                                                             */ 

/*    VALUE:    ERROR  CODE  */ 

/  7J>  *f»  *f*  »f*  *f\  *ip  *^  «f*  «f^  Jp  *f»  *f*  *f»  *f*  *r»  *f»  ^TN  «^  «S  -f*  *f*  *fs  »f»  rjS  *T*  ^T*  *T*  ^^  *r»  ^S  ^P  ^>*f*  *T+  *^  ^>  ^S  ^>  ^S  «^*^  ^*  *^  ^S  ^^  *S  *0  ^S  ^>  ^*  *^^»  *^  *T*  / 

CHAR=(A=E);    /*    SAVE    CHARACTER  */ 
IF    (A=[PRT$CNTRL] ;    A::0)    ZERO   THEN 
DO;         /*    PRINTER  NOT    IN   USE   */ 

IF    ( [ PRTSSTAT]  =  ( A= IN(8AH)) ;    A: :  [  PRTSRDY] )     TZERO   THEN 

DO; 

[  ERROR]  =  (A=7)  ; 
RETURN; 

END; 

/*   SET  PRINTER    IN   USE   BIT   */ 

[  PRTSCNTRL]  =  (  A=  [  TASK]     S    80H)  ; 

C  PRTSSEC]  =  (  HL=  [  PRTSBOE] )  ; 

[  BUFSPTR]  =  (  HL=  100H)  ; 
END 
ELSE 
DO;  /-*    CHECK    IF    CURRENT   TASK   OWNS    PRINTER   *s 

B=(A=A   8   3);    /*    B   =    TASK  WHICH   HAS    PRINTER  */ 

IF    <A=CTASK];       A::B)     tZERO   THEN 

DO;       /*    TASK  DOES    NOT   OWN    PRINTER  */ 
[  ERROR]  =  (  A=  1 1 )  ; 
RETURN; 

END 

ELSE 

IF    ( A=  C  PRTSCNTRL]  ;    A=<A;    A=<A)    CY  THEN 

DO;       /*      PRINTER    IS    PRINTING   A   FILE      */ 
C  ERROR]  =  (  A=  1  1 )  ; 
RETURN; 

END; 
END; 

IF    (A=CHAR;    A: : C CNTRLSZ] )     TZERO   Q    ( A: : [ CNTRLSR] )     TZERO   THEN 
DO;       /*    FILL   BUFFER  */ 

HL=C BUFSPTR] ; 

IF    (A=3;     A::H)    ZERO   8    (A=0;    A::L)     ZERO   THEN 
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DO;    /*   BUFFER  FULL   -    WRITE   TO   DISK  */ 
CALL   WRITESPRTSBUF; 
C  BUFSPTR]  =  (  HL=  100H)  ; 

END; 

HL=  C  BUFSPTR] ; 

M(HL)  =  (A=CHAR)  ; 

C BUFSPTR] =(  HL=  [  BUFSPTR]  ,    +1); 
END 
ELSE 
DO;       /-*   END   OF   FILE   CONDITION,    SET   UP   FOR  PRINTING   */ 

IF    (A:  .-[CNTRLSZ]  )    ZERO   THEN 

DO;    /"*   EOF    */ 

RL=  C  BUFSPTR]  ; 
M(HL)  =  (A=CHAR)  ; 
CALL   WRITESPRTSBUF; 

END; 

C  PRTSSEC]  =  ( HL=  C  PRTSBOE] ) ; 

C  BUFSPTR]  =  (  BL=  100H)  ; 

CALL    [READ8PRTSBUF]  ; 

DISABLE; 

C  PRTSCNTRL]  =  ( A= [ PRTSCNTRLJ    \    40H)  ; 

/*   START   PRINTING  */ 

0UT(8AH)  =  (  A=0)  ; 

ENABLE; 
END; 
END   WRITESPRINTER; 

SELECTSDRIVE:       PROCEDURE; 

r    *r*  *C*  *^  ^S  *f*  ^^  *r*  ^S  *r»  *P  *P  ^p  ^5  ^S  *^  *^  *^  *P  *r*  *f>  3p  *^  *r«  «^  *R  *f*  »K  3^  »^  *j^^R  *^  ?^  ?K  »^  ^ifs  «f»  *p  ^p  »fi  ^fC  jfc*f\  »f»  -J;  rj!  ?p  ijZ  jfZ  ^f»  3f*3p  3fl  *ft  / 

/*   THIS    SERVICE   CALL  SELECTS    THE   VIRTUAL   FLOPPY  DISK      */* 

/*   DRIVE   TO   BE   USED   FOR  SUBSEQUENT   FLOPPY  DISK  */ 

/■*   ACCESSES.  */ 

/*   ARGUMENTS:  */ 

/■*      (  1)    FID   =    12  */ 

/*      (2)    PARTI   =    DRIVE  NUMBER   (0-7)                                                      */ 

/"*    VALUE:     ERROR  CODE  */ 

/   2fv»^  *P  »f*  ^f*  *p  »R  Jfs  »ft  -fs  'f^  «f%  ^fi  »p  *f\  *-S  yf»  «-^  »fv  ^^  *f>  *^  «r*  rj*  *fN  *fs  ?^»?*  *J^  -^  ^P  »F>  »f*  ^s  -P  *f»  »fs  *f»  »f\  ^fv  .^  •RTft  «^?f>  »fx  »^  *P  3j>  *f%  *R  3f»*fv  rjZ  / 

C DRIVE] =(A=CPARM0] ) ; 

/*   VALIDATE   DRIVE   NUMBER  */ 

IF    (A:  :8)     !CY  THEN 

S*    DRIVE    NR   >    7    -    ERROR  6    */ 

DO;     [  ERROR]  =  (  A=6) ;    RETURN;    END; 
/*    VALIDATE   THAT   DRIVE    IN   USE   */ 
DE=  .  C  TCTSDM]  ;     A=  [  TASK]  ;    CALL    [  INDEX8]  ; 
DE=RL;     A=C DRIVE];    CALL    [INDEX]; 
IF    (A=<M(HL))     !CY  THEN 

/*   DRIVE   NOT  AVAIL   -    ERROR    10   */ 

DO;     [  ERROR]  =  (A= 10)  ;    RETURN;     END; 
STACK=HL; 
CALL    WRITESBUF; 
HL= STACK; 

/*    UPDATE   VDC    BLOCK   */ 
EDISK]  =  (A=M(HL)       8    1FH)  ; 
IF    (A=M(HL)       8    40H)     TZERO   THEN      /"*    READ   ONLY  */ 

[  DRIVE]  =  (A=[  DRIVE]     S    40H)  ;       /*    SET  BIT  6    */ 
DE=  .  [  DMTSBOE]  ;    A=[DISK);    CALL    C  INDEX2]  ; 
CALL    [ GET]  ;     [ VDCSBOE]  =  (  HL=  BC)  ; 
DE= .  [  DMTSEOE] ;    A=CDISK3:    CALL    C  INDEX2]  ; 
CALL   [ GET] ;     [ VDCSEOE0]  =  ( HL=  BC) ; 
[ VDCSDRIVE]  =  (  A=  [  DRIVE] )  ; 
END   SELECTSDRIVE; 

SETSDMA :       PROCEDURE ; 

/*   THIS   SERVICE   GALL   SETS   THE   ADDRESS   OF   THE  128   BYTE  */ 
/■*    DMA   BUFFER   TO    BE    USED    IN   SUBSEQUENT   VIRTUAL    FLOPPY  */ 

/*    DISK  ACCESSES.  */ 

/*    ARGUMENTS:  */ 

/*      ( 1)    FID   =     13  */ 

/*      (2)    PARM   =    DMA   ADDRESS  */ 

/*    VALUE:    ERROR  CODE  *' 

A=CPARM0]-0;    A= [ PARM1 ] — 40H; 
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IF   MINUS   THEN 

/*   OUT  OF   BOUNDS    -    ERROR    12    */ 

DO;    [  ERROR]  =  (A= 12) ;    RETURN;    END; 
[ VDCSDMA]  =  (  HL=  [  PARM01 )  ; 
END   SETSDMA; 

SETSTRACK:       PROCEDURE; 

/*  THIS   SERVICE   CALL  SETS   THE   TRACK  NUMBER  TO   BE  USED   */ 

/*  IN   SUBSEQUENT  VIRTUAL   FLOPPY  DISK  ACCESSES.  */ 

/*  ARGUMENTS:  */ 

/*      C  1)    FID    =     14  */- 

/*      (2)    PARM   =    TRACK  NUMBER  *• 

/*  VALUE:    NONE  */ 

A=[PARM0I ; 

IF    (A: :77)     !CY  THEN 

/■*   OUT   OF   BOUNDS    -    ERROR    12    */ 

DO;     [  ERROR] =(A= 12) ;    RETURN;    END; 
[VDC$TRACK]=A; 
END   SETSTRACK; 

SETSSECTOR:       PROCEDURE; 

f      J(t  rfi  if*  7fc  3^  *^  ?P  *^  t^  rfi  ^  ?f»  *^  ^S  Jf*  *f»  J^  *f»  «f^  *^  ?^  Pf?  ^>  *^  Jfi  ?f»  »P  «^  --(C  «^  J^  *i- "T*  -T»  *R  »T*  *T?  *T*  *T»  *T»  *T*  <T*  *R  *T»  *"  'R'f»'f»  *f»  *^  *T»  *P  *T*  *T*  f 

/*   THIS   SERVICE   CALL   SETS   THE   SECTOR  NUMBER  TO   BE  */ 

/*    USED    IN   SUBSEQUENT  VIRTUAL   FLOPPY  DISK  ACCESSES.  */ 

/*   ARGUMENTS:  %/ 

s*      (  1)    FID   =    13  */ 

/*      (2)    PARM  =    SECTOR  NUMBER   (1-26)  */ 

/*    VALUE:    ERROR  CODE  */ 

/  ^^s »f\  7^ Ifc  *^ *^ *?•  »Js  «^ *?Z *p  Jp  *^ *^  Tfi  if*  Jfv  *p «r*  *o  *r* *o  ^p -N  ^  ^ *o  *o ^p *J*  '!>  *^<|s  *n  *r* *^  *r**K *r* flp  *r» *^ *T>  3p  *o  ^r»  *t*  -t^  <p ^n  *P*f* 5fC  / 

A=CPARM0] ; 

IF    (A::27)     fCY     \    (A::0)    ZERO   THEN 

/*    OUT   OF    BOUNDS    -    ERROR    12    */ 

DO;     C ERROR] =(A= 12) ;    RETURN;     END; 
[VDC$SECTOR]=A; 
END   SETSSECTOR; 

READSFLOPPY:       PROCEDURE; 

/*   THIS   SERICE   CALL   SIMULATES    READING   FROM  A   FLOPPY  */ 

/*   DISK.    THE   VIRTUAL   DISK  SECTOR  AND   TRACK  SPECIFIED  */ 

/*    IN   THE   VDC   BLOCK    IS   READ   FROM  THE   SPECIFIED  */" 

/*    VIRTUAL    DRIVE    INTO    A    128    BYTE    BUFFER    IN   THE    USER'S  */ 

/*   SWAP   AREA.  */ 

/*    ARGUMENTS:  */ 

s*      (1)    FID    = 16  */ 

/*      (2)    PARM  =    NONE  */ 

/■*  DRIVE,    SECTOR,    TRACK,    AND   DMA   ADDRESS    MUST  */ 

/*  HAVE   BEEN   PREVIOUSLY  SET  BY  CALLS   TO   THE  */ 

/■*  APPROPRIATE    PROCEDURES.  */ 

/*   VALUE:    ERROR  CODE  */ 

CALL   MAP; 

IF    (A=[  ERROR]    \    A)     TZERO    RETURN; 
DE=HL;    HL= [ VDCSDMA] ;    CALL    [MOVBUF]; 
END   READSFLOPPY; 

WRITESFLOPPY:       PROCEDURE; 

f    *f»  «r*  3f*  *f» *f*  3p  ■?■  *t*  *p  *f*  *t*  *p  «o  3p  *f*  *^  *r^  ^p  *f»  *T*  *P  *r*  *P  *^  ^^  *P  *«*  n>  *^  *^  *^  *o  *^  ^R  ^  ^  ^S  *fr  *o  *N  *r*  ^^ ^S  ^*  ^^  *?*  *r*  ^S  ^>  ^  *^  ^*  ^*  ^*  / 

/*    THIS    SERVICE   CALL   SIMULATES    SUITING   TO    A   FLOPPY  */ 

/*   DISK.    A    128   BYTE   BUFFER    IN   THE   USER  SWAP    AREA    IS  */ 

/*    WRITTEN    TO   THE    VIRTUAL   TRACK,    SECTOR,    AND    DRIVE  */ 

/*   SPECIFIED    IN   THE   VDC    BLOCK.  */ 

/*    ARGUMENTS:  */ 

/*      ( 1)    FID   =    17  */ 

/%      (2)    PARM   =    NONE  */ 

/"*  DRIVE,    SECTOR,    TRACK,    AND   DMA   ADDRESS    MUST  */ 

/*  HAVE   BEEN   PREVIOUSLY  SPECIFIED   BY  CALLS   TO  */ 

r*  THE    APPROPRIATE    PROCEDURES.  */• 

/*   VALUE:    ERROR  CODE  */ 

IF    ( A=[  VDCSDRIVE]    Q    40H)     !ZERO   THEN   /*    READ   ONLY  DISK  */ 
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DO? 

[ERROR3  =  <A=2)  ;    RETURN; 
END; 
CALL   MAP; 

IF    (A=L ERROR]    \    A)     TZERO   RETURN; 
STACK=  HL ;    DE=  (  HL=  C VDCSDMA] ) ; 
HL= STACK;    CALL    [M0VBUF1; 

QVDC*DRIVE]=( A=CVDCSDRIVE]    \    80H)  ;       S*   SET  BIT  7    */ 
END   WRITESFLOPPY; 


EOF 
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/************      TERMINAL    INTERFACE   MODULE      ***********/ 

r    ^**T»^P^^  ^*  "f*  *^^^"^  ^S  *^  ^^  ^S  ^*  t>  ^^  ^^  ^>  ^S  t*  ^S  *r*  ^>  *o  ^^^p  *^  ^^  ^p  *P  *^  *F*^S  *P  *t*  "P  ^p  ^P  *P  *f»  *f»  ^f»  3^  *R  *P  Jp  »^  »f»  -fC  if*  *fC  ^jC  ,,/ 

/*  #/ 

/*  TERMINAL    INTERFACE   MODULE   PROVIDES   THE   MTS      */ 

/*  INTERFACE    WITH  THE   FOUR  DISPLAY  TERMINALS                      */ 

/*  ATTACHED   TO   THE   SYCOR  440   SYSTEM.       THE   MODULE    IS   */ 

/*  SEPARATED    INTO  FIVE   BASIC    SUBMODULES.       EACH                */ 

/*  SUBMODULE   CONTAINS   THE   MACROS   NECESSARY  FOR               */ 

/*  LINKING   WITHIN   THE   TERMINAL   MODULE   AND   FOR                   */ 

/*  EXTERNAL   MTS   LINKAGE.                                                                        */ 

/*  */ 

/*  (1)    DATA  DECLARATIONS                                                                     */ 

/*  THIS    SUBMODULE   PROVIDES   ALL   DECLARATIONS   OF    */ 

/*  THE   DATA  STRUCTURES   UTILIZED   BY  THE   TERMINAL*/ 

/*  MODULE.                                                                                               */ 

/*  (2)    UTILITY  PROCEDURES                                                                      */ 

/*  THIS   SUBMODULE   CONTAINS   THE   BASIC   UTILITY        */ 

/*  PROCEDURES   WHICH   PROVIDE   COMMON   REGISTER          */ 

/*  MANIPULATION   AND   PROCESSING   REQUIRED   BY             */ 

/*  MANY  PROCEDURES    THROUGHOUT   THE   REMAINDER           */ 

/*  OF   THE   TERMINAL    INTERFACE   MODULE.                             */ 

/■*  *    COMPARESPTRS                 *    GETS  INDEX                        */ 

/*  *    GETSVALUE                         *    STORESVALUE                   */ 

/*  *   CONVERTSNUMBRSTOSASC I  I                                          */ 

/*  *    MOVESBYTES                      *    SWAPSCURSOR                   */ 

/%  (3)    TERMINAL    INTERFACE   PRIMITIVES                                       */ 

/*  THIS    SUBMODULE   CONTAINS    THE    PROCEDURES    WHICH*/ 

/*  PROVIDE   THE   BASIC   TERMINAL    INTERFACE                     */ 

/*  FUNCTIONS.                                                                                       */ 

/*  *    BLANKSDISPLAY             *   GETSDISPLAYSADDR      */ 

/*  *    CHECKSCURSOR                *    GETSTERMSSTATUS         */ 

/*  *    SCROLLED I SPLAY           *    SENDSBEEF                         */ 

/*  *   SENDSCLICK                     *   UPDATESCURSOR             */ 

/*  *    GETSSTATUSSADDR                                                             */ 

/*  (4)    KEY  PROCESSING   PROCEDURES                                                 */ 

/*  THIS    SUBMODULE   CONTAINS    THE    PROCEDURES    WHICH*/ 

/*  PROVIDE   THE   BASIC   TERMINAL    INPUT   PROCESSING.*/ 

/*  THEY  ARE   CALLED  TO   PROCESS   EACH   KEY  ENTERED   */ 

/*  AT  A   TERMINAL.       THEIR  FUNCTIONS    INCLUDE:            */ 

/*  CHECKING  FOR  AND   CONVERTING   LOWER  TO   UPPER      */ 

/*  CASE    LETTERS    IF    REQUIRED;    CHECKING   FOR  ANY      */ 

/*  KEY  COMMANDS    (WHICH    INCLUDES   ALL   LINE                  */ 

/*  EDITING) ;    AND    IF    NOT   A   KEY   COMMAND,                          */ 

/*  DISPLAYING  THE    INPUT  CHAR  AT  THE   TERMINAL.       */ 

/*  *    KEY*COMMAND         *    TERMS  INPUT* CNTL                   */ 

/*  (5)    TERMINAL    INTERFACE   SYSTEM   FUNCTIONS                        */ 

/*  THIS    SUBMODULE   CONTAINS    THE    PROCEDURES    WHICH*/ 

/*  PROVIDE   THE   PROCESSING   REQUIRED  TO    INTERFACE*/ 

/*  THE   TERMINAL   WITH  THE   REST   OF    THE    MTS                   */ 

/*  MODULES.        IT   PROVIDES    READING   AND    WRITING         */ 

/*  OF   CHARACTERS   FROM/TO   THE  TERMINALS;                      */ 

/*  TERMINAL   STATUS    INFORMATION    (E.G.    WHETHER         */ 

/*  THERE'S    INPUT   AVAILABLE    OR  NOT) ;    AND    DISPLAY*/ 

/*  OF    STATUS    AND   MTS    MESSAGES    ON   THE    TERMINAL      */ 

/*  STATUS    LINE.                                                                                  */ 

/■*  *    BLINKSCURSORS              *    CLEARSSTATUSSLINE   */ 

/*  *   TERMINALSSTATUS        *   READSTERMINAL             */ 

/*  *    WRITESTERMINAL           *    STATUSSMSG                      */ 

/*  *    MTSSMSG                              *    SIZESMSG                           */ 
/***^**^***************:f:*****************************/ 


/*****:mc**:m:*****************************************/ 
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z'************   TERMINAL  DISPLAY  DESIGN   j*************/ 

/*  */ 

/■*  */ 

/*                GENERAL  FORMAT  OF  EACH  TERMINAL  DISPLAY  */ 

/*  */ 

/"*  */ 

/■*       */ 

/-*       10            STATUS  LINE              63  1  */ 

/*       */ 

/*       */ 

/"*       10     D                             63 1  */ 

/*           */ 

/*                 164         I                          127  1  */ 

/*       %/ 

/*                 1128    B        S                     19  11  */ 

/*       ^/ 

/*       I  192        U        P                 255  I  */ 

/*       */ 

/*       1256            F        L             319  1  */ 

/*                */ 

/*       1320                F        A         383  1  */ 

/*       %/ 

/*                 1384                    E        Y    4471  */ 

/■*                */ 

/*       1 448                         R         5111  */ 

/*       */ 

/*■  */ 

/*  */ 

/*                   STATUS  LINE  */" 

/*       */ 

/*        10       VFD        39  140  MS  47  148  MSG  63  1  */ 

/*       ■%/ 

/*       WHERE  */ 

/*      VFD  -  VIRTUAL  FLOPPY  DISK  STATUS  DISPLAY;  */ 

/*            CONTAINS  THE  INFORMATION  ASSOCIATED  */ 

/•*                              WITH  THE  CURRENT  TERMINAL  USER'S  */" 

/*            VIRTUAL  FLOPPY  DISK  DRIVE  AND  DISK  */ 

/*            NUMBER  ASSIGNMENTS.  (SEE  STATUS»MSG  */ 

/*            PROC  FOR  DETAILS)  */ 

/■*                 MS  -  DISPLAY  OF  THE  MEMORY  SIZE  THE  USER  */ 

/■*                               HAS  REQUESTED.  (SEE  SIZESMSG  PROC)  */ 

/*      MSG  -  DISPLAY  AREA  FOR  MTS  MESSAGES  WHICH  */ 

/*            ARE  DISPLAYED  IN  RESPONSE  TO  A  */ 

/*            SYSTEM  OR  SERVICE  CALL  TO  MTS.  */ 

/*            (SEE  MTSSMSG  PROC)  */ 

/*  */ 

/*  */ 

/*                   DISPLAY  BUFFER  */ 

/*                   */• 

/■*  */ 

/*  THE  DISPLAY  BUFFER  IS  VIEWED  AS  A  SINGLE  */ 
/*  BUFFER  FROM  0  TO  5  12  BYTES  IN  LENGTH.   THERE  ARE  */ 

/*  FOUR  DISPLAY  BUFFER  POINTERS  WHICH  PROVIDE  THE  */ 
/*  CONTROL  OF  INPUT  FROM  AND  OUTPUT  TO  THE  TERMINAL  */ 

/*  DISPLAY.   THESE  POINTERS  ARE:   CURRENTSLINE;  */ 

/*  CURSOR;  NEXTSCHAR;  AND  END*  I  BUFF.  */ 

/*  EACH  POINTER  UTILIZES  TWO  BYTES  OF  STORAGE  TO  */ 

/*  ACCOMMODATE  A  RANGE  IN  VALUE  FROM  0  TO  512.  */ 

/•*    IN  ADDITION  TO  THESE  POINTERS,  THERE  IS  A  */ 

/*  TERMINAL  STATUS  BYTE,  CALLED  TERMSSTATUS,  */ 

/*  ASSOCIATED  WITH  EACH  TERMINAL.   IT  IS  SET  TO  */ 

/*  ONE  OF  THREE  VALUES:   INPUTSWAITING;  */ 

/*  MTSSCMDSREADY;  IBUFFSEMPTY.   THESE  ARE  THE  */ 

/*  PRIMARY  DATA  STRUCTURES  PROVIDING  TERMINAL  I/O  */ 

/*  CONTROL.  *' 

/*  */ 

/*  THE  PRIMARY  SYCOR  HARDWARE  CHARACTERISTIC  WHICH  */ 

/*  AFFECTED  THE  MTS  TERMINAL  INTERFACE  WAS  THE  */ 
/*  RELATIVELY  SLOW  MINI-DISK  ACCESS  TIMES.   THIS  HAS*/ 

/*  A  MAJOR  IMPACT  WHEN  TRYING  TO  DESIGN  AN  */ 

/*  INTERACTIVE  TIMESHARED  SYSTEM.   IN  ORDER  TO  */ 

/*  PROVIDE  REASONABLE  INTERACTIVE  RESPONSE  TIMES  */ 
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/*  TO  USER.  ACTIONS,  THE  TERMINAL  INTERFACE  */ 

/*  MODULE  PROVIDES  ALL  LINE  EDITING  FEATURES  FOR  */ 

/■*  THE  USER  PRIOR  TO  TRANSFERING  ANY  DATA  TO  THE  */ 

/*  USER'S  PROGRAM.  (SEE  KEYSCOMMAND  PROC)  */ 

/*  THE  TERMINAL  DISPLAY  DESIGN  UTILITZES  TWO  */ 

/*  SEPARATE  BUFFERS  TO  PROVIDE  THE  USER  WITH  THE  */ 

/*  CAPABILITY  OF  CONTINUING  TO  ENTER  DATA  PRIOR  */ 

/*  TO  THE  USER'S  PROGRAM  BEING  SWAPPED  IN  TO  */ 

/*  PROCESS  THE  PREVIOUS  INPUT  LINE.  */ 

/■*  THE  FIRST  BUFFER  IS  CALLED  THE  'CURRENT  LINE*  */ 

/*  AND  CONTAINS  THE  INPUT  DATA  WHICH  IS  CURRENTLY  */ 

/*  BEING  ENTERED  BY  THE  USER.  THE  CURRENT  LINE  CAN  */ 
/*  RANGE  FROM  0  TO  512  BYTES  IN  LENGTH.  THIS  IS  THE*/ 
/*  DATA  THAT  IS  AFFECTED  BY  ANY  LINE  EDITING  COMMAND*/ 

/*  ENTERED  BY  THE  USER.  */ 

/*  THE  SECOND  BUFFER  IS  THE  INPUT  LINE  OR  BUFFER.  */ 

/-*  THE  CURRENT  LINE  BECOMES  THE  INPUT  LINE  WHENEVER  */ 

/*  A  CARRIAGE  RETURN  OR  ERROR  RESET  ( MTS  COMMAND  */ 

/*  KEY)  IS  ENTERED.   THIS  ACTION  ALSO  ESTABLISHES  */ 

/*  A  NEW  CURRENT  LINE.  THE  INPUT  LINE  CONTAINS  THE  */ 
/*  THE  DATA  WHICH  IS  TRANSFERRED  TO  THE  USER  PROGRAM*/ 

/*  WHEN  REQUESTED.   THUS  THERE  CAN  BE  AN  INPUT  LINE  */ 

/*  AND  A  CURRENT  LINE  ESTABLISHED  AT  ONE  TIME.  */ 

/■*  THE  CURRENT  CURSOR  POSITION  ALWAYS  SPECIFIES  */ 

/*  WHERE  THE  NEXT  CHARACTER  WILL  BE  ENTERED,  ON  */ 

/*  INPUT,  AND  WHERE  THE  NEXT  CHARACTER  WILL  BE  */ 

/*  DISPLAYED  DURING  OUTPUT.  */ 

/*  */ 

/*  THE  FOLLOWING  IS  AN  EXAMPLE  OF  POINTER  */ 

/*  MANIPULATION  DURING  INPUT:  */ 

/*   INITIALIZATION  OR  CLEAR  SCREEN  CMD:  */ 

/*       ALL  POINTERS  ARE  SET  TO  ZERO  AND  */ 

/*       TERMSSTATUS  =  INPUT  BUFFER  EMPTY.  */ 

/*  USER  ENTERS  DATA  -  "SAMPLE  INPUT  DATA":  */ 
/*       CURRENT3LINE  POINTS  TO  THE  STARTING  POSITION*/ 

/*       AND  CURSOR  ALWAYS  POINTS  TO  THE  NEXT  */ 

/*       POSITION  TO  FILL.   NOTE  THAT  AT  THIS  POINT  */ 

/*       ONLY  CURSOR  HAS  BEEN  MODIFIED.  FOR  THE  */ 

/*       INPUT  DATA  ABOVE  IT  WOULD  BE  POINTING  TO  */ 

/*       DISPLAY  BUFFER  POSITION  17.  */ 

/*   USER  TERMINATES  CURRENT  LINE  ( I.E.  ENTERS  CR  OR  */ 

/*  MTSSCMD) :  */ 
/*       ENDS  I BUFF  IS  SET  TO  CURRENT  CURSOR  POSITION.*/ 

/*       CURSOR  IS  SET  TO  LEFT  MOST  POSITION  OF  NEXT  */ 

/*           LINE  ON  DISPLAY.  */ 

/*       CURRENTSLINE  IS  SET  TO  NEW  CURSOR  POSITION.  */ 

/*       TERMSSTATUS  IS  SET  TO  INPUT  WAITING.  */ 

/*  */ 
/*  THE  RESULTING  POINTER  POSITIONS  ARE  SHOWN  FOR  THE*/ 

/*  SAMPLE  INPUT  DATA  AND  CR  CHARACTERS  ENTERED.  */ 

/*  (WHERE  *  =  CURRENT  CURSOR  POSITION)  */ 

/*  */ 

/*       NC                 EIB  */ 

/*       */ 

/*       I  SAMPLE  INPUT  DATA                       I  */ 

/*       */ 

/■*       |*                                        I  */ 

/%       */ 

/*  CL  */ 
/*                                                    .*/ 

/*  THE  SAMPLE  INPUT  DATA  IS  NOW  AVAILABLE  FOR  THE  */ 

/*  USER'S  PROGRAM  WHEN  IT'S  TIMESLICE  COMES  UP.  */ 

/*  THE  NEXTSCHAR  (NC)  POINTER  SPECIFIES  THE  NEXT  */ 

/*  CHARACTER  TO  BE  READ  AND  RETURNED  TO  THE  USER  */ 

/*  PROGRAM.   WHEN  NEXTSCHAR  =  ENDSIBUFF,  A  CARRIAGE  */ 

/*  RETURN  (CR)  IS  RETURNED  TO  THE  CALLING  USER  */ 

/*  PROGRAM.  *' 

/*  THERE  ARE  THREE  OCCASIONS  WHEN  THE  NEXTSCHAR  */ 

/*  POINTER  IS  RESET  EQUAL  TO  THE  CURRENTSLINE  */ 

/*  POINTER:  */ 

/*   (1)  FOR  A  CLEAR  SCREEN  COMMAND.  */ 

/*   (2)  WHEN  READSTERMINAL  PROC  DETECTS  THAT  THE  */ 

/*       END  OF  THE  INPUT  BUFFER  HAS  BEEN  REACHED.  */ 
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/* 

( 1) 

/* 

/■*■ 

(2) 

/■*■ 

(3) 

/* 

/* 

(4) 

/*■ 

/* 

/*      (3)    MEET*   WRITESTERMINAL   PROC   OUTPUTS   CHARACTERS  */" 

/*                TO   THE   TERMINAL   FROM  THE   USER'S   PROGRAM.  */ 

/*  */" 

/%   THE  OUTPUT  OF   DATA  FROM  THE   USER'S   PROGRAM  TO  */ 

/•*   THE   TERMINAL   RESULTS    IN   THE   FOLLOWING:  */ 

THE   CHARACTER    IS    DISPLAYED    AT  THE   CURRENT  */ 

CURSOR  POSITION.  */ 

THE   CURSOR  POSITION    IS    INCREMENTED.  */- 

THE   CURRENTSLINE  AND   NEXTSCHAR  POINTERS   ARE  */ 

SET  EQUAL   TO   THE   NEW  CURSOR  POSITION.  */ 

THE   TERMINAL   STATUS    IS   SET  TO   EMPTY.  */ 

*/" 
*/ 

/*   ANOTHER  DESIGN   CONSIDERATION   WAS   THE  REQUIREMENT  */ 

/*   FOR  THE   TERMINAL   MODULE   TO   PROVIDE   A   BLINKING  */ 

/*    CURSOR  DISPLAY  AT   EACH   TERMINAL.       THIS    REQUIRED  */ 

/*   SPECIAL   PROCESSING  TO  ENSURE   THAT  THE   CURSOR  */ 

/*   CHARACTER   (  05FH)    DID   NOT  GET   LOST  DURING  THE  */ 

/*    CURSOR  UPDATE    AND   MANIPULATION    FUNCTIONS  */ 

/*    ACCOMPLISHED   BY  THE   KEY  PROCESSING   AND   SYSTEM  */ 

/*    FUNCTION    SUBMODULES.    CHECKSCURSOR  PROC( PRIMITIVE  */ 

/*   SUBMODULE)    PROVIDES   THIS   FUNCTION,  */ 

/*  */ 

/*  */ 

/      JfS  ^S^^  7^  ^S  *N  rf%  r^  *^»^  tfr  r^  ^*  ifc  r^  *^  *P  i^  ^S  ^1  r^  ^^  *^  rfc  tfi  rfi  *^  rfc  *K  -f»  *&  »f»  «^  *f^  *^  5f»  *f*  tfZ  »^  *J\  -P  2f%  »fC  ?fi  *f*  Jfi  3f\  *f*  »f»  *f»  *f*  2fC  / 

/  ^  *P  *n  *^  ^  »f*  *n  *^  *p  *r*  *f*  *P  V  *r*  *f*  V*n  *P  *r*  *r*  *K  *n  3n  *T**f*  »n^**n  *n  *t»  3p*T**f*  *c*  *r*  3p  «f»*p3p  *R^  *r*  3(s  »p  *f*  3n  Up  JfS  3p !(!  5fC  5fC  / 


/  *£f  *&?*£?  "4?  *&?  Sfc  *j*  *■!*  "4?  S*1  SJCSfe  ***  *4f  "Jr  ^?  ^Jt  HJ  ^f  ^f  ^Jf  "Htf  "Jf  *Ji  ^4?  *Jf  *"t  H*  *■%?  *£?  Sf  'tJf  ^P  *J?  *J?  *i^  Sf  ^(f  *Jt  *4*  *i*  ~t*  *Jf  *Jf  *!*  *^  "J*  *i* '  !■  jto  ^k  *v  / 

/*****      TERMINAL    INTERFACE    DATA   DECLARATIONS      *******/ 


[MACRO    IBUFFSEMPTY      '0'       ] 
[MACRO   CURSORSCHAR      '5FH'] 

/*********      TERMINAL    INTERFACE   DECLARATIONS      ********/ 

/'*    ASCII    -    CONTAINS    DATA   FOR  MATRIX  CODE   TO   ASCII*/ 
/•*  CONVERSION.  */ 

DECLARE   ASCII    DATA    (  1EH,  1CH,  1BH, 5DH, 3BH, 29H, 28H, 7FH, 
26H, 3DH, 25H, 24H, 23H, 40H, 2 1H, 2AH, 0AH, 0CH, 0BH, 0A0H, 
0DH, 30H, 4FH, 15H, 55H, 59H, 54H, 52H, 45H, 57H, 5 1H, 49H, 
0DH, 9 . 31H, 9 , 22H, 3AH. 4CH, 0A5H, 4AH, 48H, 47H. 46H, 44H, 53H, 
4 1H, 4BH, 0FFH, 30H, 20H, 0A3H, 0A2H. 3FH, 3EH, 3CH, 4DH, 4EH, 
42H, 56H, 43H. 58H, 5AH. 0FFH, 

0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH. 0FFH, 7FH, 0FFH, OFFH, 
0FFH, 0A4H, 0FFH, 0FFH, 0FFH. 0FFH, 0FFH, 0FFH, 0FFH, 0A0H, 
0DH, 0FFH, 0FFH, 13H, OFFH, 0FFH, OFFH, OFFH, OFFH, OFFH, 
OFFH, OFFH, OFFH, OFFH, OFFH, 09 , OFFH, OFFH, OFFH, OA5H, 
OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, 
20H, 0A3H, 0A2H, OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, 
OA1H, OFFH, OFFH, OFFH, 

OFFH, OFFH, OFFH, 5FH, OFFH, 7DH, 7BH, 7FH, OFFH, 7EH, 5CH, 
OA4H, 60H, 3EH, 7CH, OFFH, OFFH, OFFH, OFFH, 0A0H, ODH, 
10H,0FH, 13H, 15H, 19H, 14H, 12H,05, 17H, 1 1H,09,60H, 
5EH, 7CH, 09 , OFFH, OFFH, OCH, 0A5H, OAH, 08, 07 , 06 , 04, 
13H, 0 1 , 0BH, OFFH, 7DH, 20H, 0A3H, 0A2H, OFFH, OFFH, OFFH, 
0DH,0EH,02, 16H.03, 18H, 1AH.0FFH, 

39H, 38H, 37H, 2DH, 2BH, 30H, 39H, 7FH, 37H, 36H, 35H, 34H, 
33H, 32H, 3 1H, 38H, 36H, 35H, 34H, 0A0H, ODH, 70H, 6FH, 15H, 
73H,79H,74H,72H,65H,77H,71H,69H,33H,32H,31H,09, 
27H, 3BH, 6CH, 0A5H, 6AH, 68H, 67H, 66H, 64H, 73H, 6 1H, 6BH, 
OFFH, 30H, 20H, 0A3H, 0A2H, 2FH, 2EH, 2CH, 6DH, 6EH, 62H, 
76H, 63H, 78H, 7AH, OFFH) ; 

/*   STATUSSBASE      -    START  OF   STATUS    LINE   AT  EACH  TERM  */ 
/"*    DISPLAYSBASE   -    START   OF    DISPLAY   LINES  */ 

DECLARE   STATUSSBASE      DATA 
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(  00H, 07H, 40H, 09H, 80H, 0BH, 0C0H, 0DH) ; 
DECLARE  DISPLAYSBASE  DATA 

( 40H, 07H, 80H, 09H, 0C0H, 0BH, 00H, 0EH) ; 

r    ^>*f*  ^S  ^^^p  ^S  *^  ^^  ^>^S*r*  ^S  ^^  ^S^S  ^>  *f*  ^S  ^^  ^^  *o  ^S  ^S  *r*  *T»*r»  •"r**^  »r*  *f*  5f»  5f»  ■(•^i  ^N  »r*  ^  »f»  *F*  5ft  -r»  5ft  5^  5ft  *ft  5ft  «ft*ft  is  5ft  5ft  5ft/ 

/*    MTSSMESSAGE   -  DATA   VECTOR  CONTAINING   ALL   THE    MTS    */ 

/*  MESSAGES   WHICH  MAY  BE   DISPLAYED    IN   */ 

s-*  THE   MTS   MSG   FIELD   OF   THE   STATUS  */ 

/*  LINE.  */ 

s*   SIZE»MESSAGE-  DATA   VECTOR  CONTAINING   THE   TEXT  */ 

/*  PORTION   OF   THE   SIZE   MSG  FIELD   OF        */ 

/*  THE   STATUS    LINE.  */- 

/  5ft*Tt3f»7f»5jft3fs5f>5^  5ft  5fs  5^?fT5^5^  5T*5fv5ft  5p  5ft  5ft  5ft  5ft  5ft  5^  5ft  5ft  5fC5ft  .ft  5JC  5^  5ft  5?t  *ft  5ft  5ft  -ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  2ft  5ft  5ft  5fC  / 

DECLARE   MTSSMESSAGE   DATA   ( * 

INVALID   CMD       ','       DISK  NOT  AVAIL' , '  DISK    IN   USE       ', 

DISK  NR  ERROR' , '  KEY  ERROR         ' , '    DRIVE   LTR  ERROR' , 

'    PRINTER  NOT  RDY' , '    HARDWARE   ERROR    ' , '       TASK  DELETED      ' , 

'    DRIVE   NOT  AVAIL') ; 

DECLARE   SIZESMESSAGE   DATA   ('K  MTS    * )  ; 

/  1ft  5fC  5fv  5ft  5fC  "ft  *r*  5ft  5fs  5ft  5ft  Js  5ft  5ft  5f»  5ft  *f%  5ft  *t*r 

/*   THE   NEXT  FOUR  DECLARATIONS   PROVIDE   THE   POINTERS  */ 

/*   UTILIZED   TO   CONTROL   THE    INPUT/OUTPUT  AT  EACH  */ 

/*   TERMINAL.  */ 

/*   CURSOR  -    SPECIFIES   THE   CURRENT   ADDRESS    WHERE   THE  */ 

/*  CURSOR      IS    TO   BE    DISPLAYED.  */" 

/*   CURRENT3LINE   -   ADDRESS   WHICH   POINTS   TO    INITIAL  BYTE   */" 
/*  OF   CURRENT   USER    INPUT  LINE.    THIS   LINE   HAS      */ 

/*  NOT  YET  RECEIVED   A    '  CR*    AND   THUS    IS   NOT   YET*/' 

/*  CONSIDERED   AN    INPUT  BUFFER.  */ 

/*    NEXTSCHAR  -    POINTS    TO   NEXT   CHAR  TO   BE    PROCESSED    FROM*/ 
/*  THE    INPUT   BUFFER.    AN    INPUT    IS   DEFINED   AS   A   */ 

/*  STRING  OF    ASCII    CHARACTERS    (FROM    1    TO   5  12)    */ 

/*  WHICH  HAS    BEEN    TERMINATED   BY  A    *CR'    OR  */ 

/*  'MTSSCMD'    KEY  BY  THE   USER.  */ 

/*   ENDSIBUFF   -   POINTS   TO   BYTE   POSITION    IN    INPUT  BUFFER  */ 
/*  WHERE    'CR'    OR    'MTSSCMD'    WAS   RECEIVED.  */ 

/5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft/ 

DECLARE  CURSOR  (8)  BYTE    INITI AL( 0, 0, 0, 0, 0,0, 0 , 0) ; 

DECLARE  CURRENT3LINE  (8)  BYTE    INITI AL( 0, 0 , 0, 0 , 0, 0, 0, 0) 

DECLARE  NEXTSCHAR  (8)  BYTE    INITIAL(  0,  0  ,  0,  0,  0,  0,  0  ,  0) 

DECLARE  ENDSIBUFF  (8)  BYTE    INITI AL( 0, 0, 0, 0, 0, 0, 0, 0) 

/*    CAPITALIZE   -    SET  TO   ONE    IF    TERMINAL    IN   CAP    MODE   */ 

DECLARE   CAPITALIZE   <4)    BYTE    INITIAL    (1,1,1,1); 

/*    TERMSSTATUS  -    CONTAINS    THE   CURRENT  STATUS    OF  */ 

/*  EACH   TERMINAL'S    INPUT   BUFFER,  */ 

/*  EITHER    INPUT    WAITING;  */ 

/*  MTS   CMD   READY;    OR    I BUFF   EMPTY.  */ 

DECLARE   TERMSSTATUS    (4)    BYTE    INITIAL    ( C IBUFFSEMPTY)  , 
C  IBUFFSEMPTY]  ,  [  IBUFFSEMPTY]  ,  [  IBUFFSEMPTY]  )  ; 

/*   SWAPSPOS   -    FOR  EACH   TERMINAL   THERE    IS    A  ONE    BYTE    */ 
/•*  SAVE   AREA   WHICH    IS    USED   DURING  CURSOR  */ 

/*  BLINKING  PROCESSING  */ 

DECLARE   SWAPSPOS    (4)    BYTE    INITIAL    ( [ CURSORSCHAR] , 
C  CURSORSCHAR]  , [ CURSORSCHAR] , C CURSORSCHAR] ) ; 

EOF 

/***      TERMINAL      INTERFACE   UTILITY  PROCEDURES      *******/ 


[MACRO  TRUE  '0FFH'] 

[MACRO    FALSE  '0'  ] 

[ MACRO   SWAPSPOS  ' 1 1FDH' ] 
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COMPARESPTRS :    PROCEDURE; 

/*    COMPARES    TWO   POINTERS    (2    BYTES    EACH)    TO   DETERMINE*/ 
/*    IF    THEY  ARE    EQUAL.  */ 

/*    INPUT:       DE   -    ADDRESS   OF   FIRST  PTR  */ 

f*  HL   -    ADDRESS    OF    SECOND   PTR  */ 

/*   OUTPUT:       A  -    TRUE    IF   EQUAL,    FALSE   OTHERWISE.  */ 

/*   CALLED   BY:         KEYSCOMMAND;    READSTERMINAL;  */ 

CY=0; 

IF    (A=M(DE) — M(HL))     fZERO   THEN 

A=[  FALSE] 
ELSE 

DO; 

DE=  DE+ 1 ;    HL=  HL+  1 ; 

IF    (A=M(DE) — M(HL))     !ZERO   THEN 
A=  C  FALSE] 

ELSE 

A=  [  TRUE] ; 

END; 
END   COMPARESPTRS; 


CONVERTSNUMBRSTOSASC 1 1 :    PROCEDURE ; 

/    *f*  If*  5f*  *f»  *f*  *f»  "T*  *f*  *f^  *P  *f*  3p  *t*  *o  *r»  *r*  *p  «t*  ^*  *^  *P  *r»  If*  3p  ^  *t>  *P  If*  5ft  *p  ^*  *P  5fwf*  *ft  If*  5ft  5fl  5ft  *r*^n  3p  5ft  5ft  5f*  If*  5f»  5ft  5f>  5f*  *f*  5ft  /^ 

/*   CONVERTS   THE   SPECIFIED   NUMBER  TO   A   DISPLAYABLE  */ 

/*    TWO   DIGIT   DECIMAL   NUMBER   (MAX   VALUE    IS    99).  */ 

/*    INPUT:       A  -    NUMBER  TO   BE   CONVERTED.  */ 

s*    OUTPUT:    B   -    LEFT   MOST   DIGIT   TO   BE   DISPLAYED.  */ 

/*  C   -    RIGHT   MOST  DIGIT  TO   BE   DISPLAYED.  */ 

/*    CALLED    BY:       SIZESMSG;    STATUSSMSG;  ■*/ 

B=0;    C=A; 

DO   WHILE    (A: : 10)    PLUS; 

B=B+1; 

C=( A=C-10) ; 

END; 
C=(A=A+30H)  ; 
B=(  A=B+30H)  ; 
END   CONVERTSNUMBRSTOSASC 1 1 ; 


GETS  INDEX:    PROCEDURE; 

/  3f»  3fC  3ft  3J»  5ft  If!  5f»  5f*  *ft  If*  5ft  5ft  If*  If*  5ft  If*  If*  If*  If*  If*  *P  If*  If*  3p  *r*  If*  3p  'ft  -ft  If*  *p  *f*  *r*  3p  *P  *f*  If*  If*  If*  If*  If*  If*  5ft  If*  If*  If*  If*  If*  5ft  5ft  If*  5ft  / 

/*    USED   TO   GET  THE    INDEX    INTO   AN   ADDRESS   ARRAY  BY  */ 

/*   COMPUTING   THE   OFFSET   FROM  A   GIVEN    BASE    ADDRESS.  */ 

/*    INPUT:       A  -    OFFSET  VALUE    (NORMALLY  THE   TASK  OR  */ 

/"*                                   TERMINAL   NUMBER)  .  */ 

/*                     HL   -    BASE   ADDRESS  */ 

/*   OUTPUT:    DE-    ARRAY  OFFSET  */ 

/*                        HL-    ARRAY  OFFSET   (HL=DE)  */ 

/*                        BC-    COMPUTED   OFFSET  */ 

/*    CALLED    BY:       SCROLLSDISPLAY;    UP DATES CURS OR;  */ 

/*                                  KEYSCOMMAND;    TERMS  INPUTS CNTL;  */ 

/•*                                    READSTERMINAL;    WRITESTERMINAL  *s 

CY=0;    B=0; 

C=(A=<<A);       /*    SET   ADDRESS    OFFSET   TO   0FFSET*2  */ 
HL=HL+BC;    DE=HL; 
END   GETS  INDEX; 


GETS VALUE:    PROCEDURE; 

/^:**5f:**^***>c^*****************************:C**********/ 

/*    GETS    A   2    BYTE   VALUE    FROM   MEMORY.  */ 

/*    INPUT:    DE   -    ADDRESS    OF    2    BYTE   VECTOR;    THE  */ 

/*                                  CONTENTS    ARE  TO   BE   STORED    IN   THE  */ 

S*                                   HL   REGISTER.  *S 

/%   OUTPUT:    HL   -    CONTENTS   OF   2   BYTE   VECTOR  */ 

/*                         DE   -    ADDRESS    OF    THE   HIGH   ORDER  BYTE  */ 

/*   CALLED   BY:         SCROLLSDISPLAY;    UPDATESCURSOR;  */ 


151 


/*  KEYSCOMMAND;    READSTERMINAL;  */ 

/*  WRITESTERMINAL;    GETSDISPLAY3ADDR  */ 

L=(A=M(DE));    DE=DE+1;    H=(A=M(DE)); 
END   GETS VALUE; 


STORES VALUE:    PROCEDURE; 

j   3^3P *^3^^p*^ *P  3^ *P  »7*  *r* ^o *T*  ^p *^  *P  *P ^S  ^  »P  5p  *f% 7fc  *P  *^ *p  «?» rffv  J^  »f.  *R  *P *fc  *fc  »f»  ^P  ^P 7(C  »fj 7?x  /fC  Jf» 3p  *f^  r?i  ^f\  Jp 3p *fx 3P *p *f»  / 

•*    STORE   A   2    BYTE   VALUE    INTO   MEMORY.  */ 

/*    INPUT:    HL   -    VALUE   TO   BE   STORED    INTO   MEMORY  */ 

/*                      DE   -    ADDRESS    OF    HIGH  ORDER  BYTE  */ 

/%   CALLED   BY:       UPDATESCURSOR;    KEYSCOMMAND;  */ 

/*                                   READSTERMINAL;    WRITESTERMINAL;  */ 

/*                                      GETSDISPLAYSADDR;  */ 

M(DE)  =  (A=H);    DE=DE-1;    M(DE)  =  (A=L); 
END   STORES VALUE; 


MOVESBYTES:    PROCEDURE; 

f  af%  «fC«T*  *P  Jf!  *f»  *ff  7p  ?fs  3^  3^  3^  'T'  *f»  *P  *P*P  "^  *^  *0  ^P  ^P  ^^  "^  *^  *P  *P  "^  *r»  *t>  ^**t*  *^  *l>  *f*  *T*  'T**&*fc  ^p  «f*  *P  ^P  *^  *P  ^p  *o  ^P  ^p  *P  ^p^p  / 

/*    MOVES    BYTES    OF    DATA   FROM  ONE    MEMORY  LOCATION   TO      */ 

/*    ANOTHER.  *• 

/*    INPUT:    BC   -    NUMBER  OF   BYTE   TO   BE   MOVED.  */ 

/*  DE    -    STARTING   MEMORY   ADDRESS    TO    MOVE  */" 

/*  BYTES   TO    (DESTINATION).  */ 

/•*■  HL   -    STARTING   MEMORY  ADDRESS    TO    MOVE  */ 

/*  BYTES   FROM   ( SOURCE) .  */ 

/*    CALLED   BY:       SIZESMSG;     MTSSMSG;  */- 

REPEAT; 

M(DE)=(A=M(HL))  ; 

DE=  DE+ 1 ;     HL=  HL+ 1 ; 

BC=BC-1;    A=0; 
UNTIL    (A::B)    ZERO   Q    (A::C)    ZERO; 
END   MOVESBYTES; 


SWAPSCURSOR:     PROCEDURE; 

/*   SWAP   THE   SPECIFIED   TERMINAL'S   CURRENT  CURSOR  */- 

/*   POSITION   CHAR  WITH  THE   SWAPSPOS   CHAR.  */ 

/•*■    INPUT:    A      -    TERMINAL    NUMBER  */ 

/*  HL   -    DISPLAY  ADDRESS   OF   CURSOR  POSITION  */ 

/%   CALLED   BY:       BLINKSCURSORS;    CHECKSCURSOR;  */ 

DE=HL;  /*   SAVE   DISPLAY  ADDRESS  */ 

B=0;    C=A; 

HL=[  SWAPSPOS] +BC;  /*    GET   SWAP    ADDRESS  */ 

B=  ( A=  M(  DE)  )  ;  /*      SWAP  */ 

M(DE)  =  (  A=M(HL)  )  ; 

M(HL)=(A=B)  ; 

END   SWAPSCURSOR; 


EOF 

/********    TERMINAL    INTERFACE   PRIMITIVES      ***:*********/ 


[MACRO   TRUE  '0FFH'] 

[MACRO   FALSE  '0'          3 

[MACRO   BLANK  '20H'     3 

[MACRO    IBUFFSEMPTY  '0'          3 

[MACRO   DISPLAYSSIZE  '512'     ] 

[MACRO   TERMSPORT  '03FH' 3 

[MACRO   CURSORSCHAR  '05FH'3 

/***********       INTERNAL    LINKAGE   MACROS      **************/ 
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[  INT  TB] 

[TB    :  = 

•■   1000H] 

[MACRO   STATUSSBASE 

'[HEX 

TB 

+ 

0106m 

'] 

[MACRO   DISPLAYSBASE 

'[HEX 

TB 

+ 

0111H] 

'  ] 

[MACRO   CURSOR 

'[HEX 

TB 

+ 

01D5H] 

'  ] 

[MACRO   CURRENTSLINE 

'[HEX 

TB 

+ 

01DDH] 

'  ] 

[MACRO   NEXTSCHAR 

'[HEX 

TB 

+ 

01E5H] 

'] 

[MACRO  ENDS  I  BUFF 

'[HEX 

TB 

+ 

01EDHJ 

'] 

[MACRO   TERMSSTATUS 

'[HEX 

TB 

+ 

01F9H] 

•  ] 

[MACRO   GETS  INDEX 
[MACRO   GETSVALUE 
[MACRO   STORESVALUE 
[MACRO   SWAPSCURSOR 


' [ HEX  TB  +  024CH] * ] 
'  [  HEX  TB  +  0259H]  '  ] 
' [ HEX  TB  +  0262H] ' ] 
•  [  HEX   TB    +    027EH]  ' ] 


BLANKSDISPLAY:    PROCEDURE; 

/■*    PLACES  BLANKS    INTO   THE    INDICATED   AREA  OF    A  */ 

/*   TERMINAL   DISPLAY.  */ 

/*    INPUT:  BC   -    STARTING  ADDRESS    (RANGE   0   TO   511)  */ 

S*  DE   -    NUMBER  OF    BYTES    TO   SET  TO    BLANK  */ 

/%  HL   -    BASE   ADDRESS  */ 

/*    CALLED  BY:          KEYSCOMMAND;    SCROLLSDISPLAY;  */" 

/*  CLEARSSTATUSSLINE;    MTSSMSG;  */ 

/    *|>  *p  *f?  3f*  *P  •(*  'T>  •V'  *?»  *F  *n  *n  V  *N  *^  *p  *»*  *P  *r>  ^  *t*  3p  *f»  »?*  *K  2fC^f*  -T^'ts  *i>  *f>  *r»  •?*  *?»  •!*•(•  *(™p  *n  *n  'f*  Sf^^fC  JfC  *T*  »f*  JfCijClfC  *f*  -r*  *£  / 

HL=HL+BC; 
REPEAT; 

M(HL)=(  A=    [BLANK]  )  ; 

HL=HL+  1 ; 

DE=DE-1;    A=0; 
UNTIL    (A::D)    ZERO      8    (A::E5    ZERO; 
END   BLANKSDISPLAY; 


GETSDISPLAYSADDR:    PROCEDURE; 

/*    GETS    A   MEMORY  ADDRESS    IN   THE   DISPLAY  BUFFER   USING*/ 

/*    THE   DISPLAY   BUFFER  PTR  AS    OFFSET  FROM  THE    DISPLAY*/ 

/*    BASE   ADDRESS 

/*    INPUT:       BC    - 

/■*  DE   - 

/*   OUTPUT:    HL   - 

/•*  BC    - 

/*   CALLED   BY: 

/* 

/* 


*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 


TERMINAL    NUMBER  OFFSET. 
ADDRESS    OF    DISPLAY  BUFFER   PTR 
MEMORY  ADDRESS    IN    DISPLAY  BUFFER. 
DISPLAY   PTR  VALUE. 
TERMSINPUTSCNTL;    KEYSCOMMAND; 
BLINKSCURSORS;     READSTERMINAL; 
WRITESTERMINAL; 

/  *t»  *T*  *T*  *f*  *n  *P  *T*  *P  *^  *f*  *T*  Jf*  *P  *o  *o  Sp  *F  *f*  3p  *f*  *f*  *r*  3p  »N  «p  "F  ^*  ^*  *P  *P  *P  *f*  *P  *F  *F  *F  Bp  *t*  *t*  3p  *1*  *P  *R  *R  ^5  ?p  *F  *^  ^^  **  ^^  *F  ^ 

DECLARE   PTR(2)    BYTE; 
CALL    [ GETSVALUE] ; 

PTR=HL;  /*    SAVE    DISPLAY   PTR   VALUE  */ 

DE=(HL=[DISPLAYSBASE]+BC) ; /*GETS VALUE    PARAMETER  */ 
BC=(HL=PTR);  /*    GET   DISPLAY   PTR   VALUE  */ 

CALL    [GETSVALUE];    /*    GET   DISPLAY  BASE  */ 

HL=HL+BC;  /*   GET   DISPLAY  ADDRESS  */ 

END   GETSDISPLAYSADDR; 


CHECKSCURSOR:    PROCEDURE; 

/*  PRIOR  TO  CHANGING  THE  CURRENT  CURSOR  POSITION  OR  */ 
/*  DISPLAYING  A  CHARACTER  AT  THE  CURRENT  CURSOR  POS , */ 
/*   A   CHECK    IS   ALWAYS    MADE   TO   ENSURE   THAT  THE  */ 

/*  CURRENT  DISPLAY  IS  A  DATA  CHARACTER  AND  NOT  THE  */ 
/*  CURSOR  ITSELF  (I.E.  5FH) .  IF  IT  IS  THE  CURSOR  */ 
/*   A  SWAP    IS   MADE.  *' 

/*    INPUT:    A   -    TERMINAL    NUMBER  */ 

/*   CALLED   BY:    KEYSCOMMAND;    TERMSINPUTSCNTL;  */ 

/*  WRITESTERMINAL;  */ 

/****3;*****^****^************************************/ 

DECLARE   T   BYTE; 

T=A;    HL=[  CURSOR]; 

CALL    [  GETS  I NDEX1  ; 
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CALL  GET8DISPLAY8ADDR; 

IF    (A=M(HL);    A:  :  C  CURSORSCHAR]  )    ZERO   THEN 

DO; 

A=T; 

CALL   [ SWAPSCURSOR]  ; 

END; 
END   CHECKSCURSOR; 


GETSSTATUS8ADDR:    PROCEDURE; 

s  *^^^*^^p  *^*^  *&*^  ^^  *t+  ^S  ^*  ^^  *^  *r*  *^*P  ^*^S  *f»  »P  *P  ^p  3p  *t*  <^*^**p  5p  ^P  3p  «^*^*!f»  3^  3f*3p3p  jp  *fj  »fC  7^3^  *^»^  *f»  *f»  »f»  #fs  «f*«pC  3p  /^ 

/*   GETS   THE   BASE   ADDRESS   OF   THE   STATUS   LINE   FOR  THE  */ 

/*   SPECIFIED   TERMINAL.  */- 

/*    INPUT:       A     -   TERMINAL  NUMBER  */ 

/*   OUTPUT:    HL   -    MEMORY  ADDRESS   OF   FIRST  BYTE    IN  */ 

/*                                    STATUS   LINE.  */ 

/*    CALLED   BY:          CLEARSSTATUS8LINE;    MTSSMSG;  */- 

/■*                                     SIZESMSG;    STATUSSMSG;  */- 

HL=CSTATUS$BASE] 


CALL  CGETS INDEX] 
CALL  CGETSVALUE] 
END   GETSSTATUS8ADDR; 


GET8TERM8STATUS :    PROCEDURE ; 

/*    RETRIEVES    THE   TERMINAL   STATUS    FOR  THE    INDICATED  */- 

/*   TERMINAL.    TERMINAL   STATUS   SPECIFIES   WHETHER  */ 

/*    OR  NOT  THERE    IS    AN    INPUT  BUFFER  OR  MTS    COMMAND  *s 

/*    READY  FOR  PROCESSING  FOR  THAT  TERMINAL.  */ 

/*    INPUT:       A  -    TERMINAL   NUMBER  */ 

/*    OUTPUT:    A   -    TERMINAL    STATUS  */ 

/*   CALLED   BY:       KEYSCOMMAND;    TERMINALSSTATUS;  */ 

/■*  UPDATESCURSOR;    MONITOR    ( MON    MOD);  */ 

/  tit  ^lr  '.*■  ->>  -v^  ■»*•  -  *»  -i»  «^  itr  *V  *  *»  "**■  "'k'  "  ^  ^**  -i'  *  *»  *4*  '  l*  *  C  -'**  "~y  »  (■*  *  t»  - 1»  *i*  "  1'  *+■  *  1'  "  f'  -  i*  "  t"*  '  '■"  ■  4T  *  C  *  t"  *>"  "  ("  - 1*  * t"  *Jf  *+*  *Jf  Sr  N*  ^f  "+*  *+*  *4*  "i"  ""i*  / 

/  ^  ^s  <^  ^  ^  ^  ^  ^  ^  ^  *^  ^  ^  v^  *f*  *t*  *r*  "^  -^  *r>  *r»  «t>  «t*  ^  *f»  ***  *r»  *t»  *f*  *(*  *f*  *!*  «v»  *f»  «t»  *t*  *t*  *T*  *t*  *f*  "T*  *t»  *t*  *T*  *T*  *f*  *r*  *T*  *f*  •**  *•*  *r*  ^ 

B=0;    C=A; 

HL=  [  TERM8STATUS ] + BC ; 

A=M(HL)  ; 

END   GETSTERMSSTATUS ; 


SCROLL8DISPLAY:     PROCEDURE; 

/•*   SCROLLS    THE   DISPLAY   FOR  THE    INDICATED   TERMINAL.       */ 
/*    INPUT:       A   -    TERMINAL   NUMBER  */ 

f*    CALLED   BY:       UPDATESCURSOR  *' 

DECLARE   TERM  BYTE; 

DECLARE   POS(2)    BYTE; 

TERM=A;    HL=  C  DISPLAYSBASE]  ; 

CALL    [GETS INDEX!  ; 

CALL    [GETSVALUE];    DE=HL;    /*DE=DISPLAY  BASE   ADDR  */ 

POS=HL;  /*   SAVE   DISPLAY  BASE   ADDRESS*/ 

BC=64; 

BC=(HL=HL+BC) ;  /*    BC= DISPLAY  BASE    +    64  */ 

HL=448; 

REPEAT; 

M(DE)  =  (A=M(BO)  ; 

BC=BC+1;     DE=DE+1; 

HL=HL-1;    A=0; 
UNTIL    (A::H)    ZERO      3    (A::L)    ZERO; 

BC=448;  /**    SETUP    PARAMETERS    FOR  */ 

DE=64;    HL=POS;  /*      BLANKSDISPLAY   PROC  */ 

CALL   BLANKSDISPLAY; 
END   SCROLLED  I SPLAY; 


SENDSBEEP:    PROCEDURE; 

/■*■    SENDS    A   BEEP    TO   THE    INDICATED   TERMINAL.  *' 

/*   THE   FORM  OF    THE   TERMINAL   ALERT   CONTROL   BYTE  IS:       */ 

/*                      7      6      5      4      3      2       10  *^ 
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/*                 IA3IC3IA2IC2IA1 I  CI IA0IC0I  */ 

/■*  ^ 

/*   WHERE:  #/ 

/*  A(  I)     =  1;    GENERATES    AN   ALARM  AT  STATION    I.  */ 

/*  C(  I)    =  1;    GENERATES   A   CLICK  AT  STATION    I.  */ 

/*    INPUT:       A  -  TERMINAL   NUMBER  */ 

/*    CALLED   BY:  KEYSCOMMAND;  */ 

H=0;    L=A; 

IF    (A: 5  0)    PLUS      8    (A:: 4)    MINUS    THEN 

DO   CASE   HL; 

OUT(  [ TERMSPORT1 )  =  ( A=2) ; 

OUT( [ TERMSPORT] )  =  (  A=8)  ; 

OUT(  C  TERMSPORT] )  =  ( A=20H)  ; 

OUT(  [  TERMSPORT] )  =  ( A=80H) ; 

END; 
END   SENDSBEEP; 


SENDSCLICK:    PROCEDURE; 

r*    SENDS    A   CLICK  TO   THE    INDICATED   TERMINAL.    SEE  */ 

/*   SENDSBEEP    PROC    FOR  DEFINITION   OF   TERMINAL   ALERT  */ 

/*    CONTROL    BYTE.  */ 

/*    INPUT:       A  -    TERMINAL   NUMBER  */ 

/*    CALLED    BY:       UPDATESCURSOR  */ 

H=0;    L=A; 

IF    (A::0)    PLUS      8    (A::4)    MINUS   THEN 

DO   CASE   HL; 

OUT( [ TERMSPORT] )  =  (  A=  1 )  ; 

OUT(  [  TERMSPORT] )  =  (  A=4)  ; 

OUT( [ TERMSPORT] ) = ( A= 10H) ; 

OUT( [ TERMSPORT] ) = ( A=40H) ; 

END; 
END   SENDSCLICK; 


UPDATESCURSOR:     PROCEDURE; 

/  ^  if*  *F»  ^%  ^s  i^  Jfi  if*  *fs  ^s  rf*  *p*  *f*  ^^  ^*  *r*  *f*  *r*  *f*  *N  *f*  *f*  ^R  t|^«f*  ^»  *(*  ^>  ^  »r*  *r*  *r*  ^™  ^^  "T*  *r*  ^^  ^*  »f*  -r*  -r*  ^R  3R  *t*  ^p  *t*  *F>  3f»  *f*  "*  *^  ^^  ' 

/*  CONTROLS  THE  UPDATING  OF  THE  CURSOR  POSITION.  THE*/ 
/*  PRIMARY  CONCERN  IS  TO  CHECK  FOR  SCROLLING  PRIOR  */ 
/*  TO  UPDATING  THE  CURSOR.  SCROLLING  IS  NOT  ALLOWED  */ 
/*    IF   SCROLLING   WILL   DESTROY  ANY    INPUT  DATA   NOT  YET  */ 

*/ 
CHECKSSCROLLSLOCKOUT  */ 

UPDATESDISPLAYSPTRS  */ 

TERMINAL   NUMBER  */ 

VALUE   TO   WHICH  CURSOR   POSITION    IS      */ 
TO   BE   SET.  */ 

KEYSCOMMAND ;    TERMS  I NPUTSCNTL ;  */ 

/*  WRITESTERMINAL;  */ 

DECLARE   T   BYTE; 
DECLARE   P0S(2)    BYTE; 

CHECKSSCROLLSLOCKOUT:    PROCEDURE; 

/  If*  *ft  tf\  *f£ 5ft 3f* »r* *r* *r» *|C *T* *f*  *f*  ■P*r*  •?*  '■*  *<  ■  *ff  ^^ ^^  ff  ^^  *<*  *P  *^  "P  ^^  "*^  '^ ^^  ^^ *^ ^^ ^^  ^^ ^^  ^^ ^^  ^  ^^ ^^ ^^ ^^  ^^  ^^ ^^  "H  ' 

/*    CHECKS    TO   SEE    IF    THERE    IS    AN    INPUT  BUFFER  */ 

/*   READY.     IF   SO,    CHECKS   TO   SEE    IF   SCROLLING   WILL*/ 
S*    DESTROY    INPUT   BUFFER.     IF    SO,    RETURN   TRUE,  */ 

/*    ELSE   RETURN   FALSE.  */ 

/*    OUTPUT:    A   -    TRUE    IF    SCROLLING    IS    LOCKED   OUT      */ 

A=T; 

CALL   GETSTERMSSTATUS ; 

IF    (A=A-[  IBUFFSEMPTY])     ?ZERO   THEN 

DO;  /*    CHECK  NEXTSCHAR   PTR  */ 

A=  T ;    HL= [ NEXTSCHAR]  ; 

CALL    [  GETS  INDEX] ;/*    GET   NEXTSCHAR  OFFSET*/ 

CALL    [ GETSVALUE] ;    /*   GET  NEXTSCHAR  VALUE*/ 

BC=    -64;    CY=0; 
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/* 

PROCESSED. 

/* 

SUBPROCEDURES 

/* 

/•*■ 

INPUT:         A      - 

/* 

HL   - 

/* 

/% 

CALLED   BY: 

IF    ( HL= HL+BC)    CY  THEN  S*   SCROLL   OK  */ 

A=  C  FALSE] 
ELSE  /*      SCROLL   LOCKEDOUT  */ 

A=  [  TRUE]  ; 
END 
ELSE  /*    NO    INPUT  BUFFER,    SCROLL   OK        */ 

A=  C  FALSE] ; 
END  CRECKSSCROLLSLOCKOUT; 


UPDATESDISPLAYSPTRS:    PROCEDURE; 

/  ^»  ^R  ^S  3^  ^s  ^  ^S  *^  ^S  ^S*^^S  *f^^N  ^S  ^fi  *o  *r*  ^R  ^S  *^^^  *t^  *t^  'f*  *R  *t^  ^P  *f*  *P  *N  *T*  *P  *f*  *f*  *r»  *T*  *P  *P  *S  *^*,|^  *N*^*P*P*P  *^/ 

/*    UPDATES    ALL   DISPLAY  PTRS    TO   REFLECT  THE  */ 

/*   SCROLLING  OF   THE   DISPLAY.    USES   SETSPTR  TO  */ 

/*   DECREMENT  AND   STORE   THE   POINTER  VALUES.  */ 

/*    SUBPROCEDURE:    SETSPTR;  */ 

r      *P*P  *P  *0  *P  *P  ^P  *"  ^  *T*  ^S  *P  *T*  *P  "T^  *r»  »P  *P  *P  *r»  3p  *P  *f*  *P  'f*  3p  *T*  *P  *P  »^  *N  »R  ?P-f>  *f*  »f»  *fs  *f*  eP  *f^3^  3|»  3f»  5P  #^^s  3p  .-f»  / 

SETSPTR:    PROCEDURE; 

^  *^  *^  *^ *^  *l*  *f*  *T*  *T*  *v* *v*  -T"  *f*  "f*  *t* " t**r»  *r»  *f*  »T»  ^*  *r» *r*  *f»  *r*  *p  *T»  *f»  *T*  t*  *N  "^  ^S  »T»  ■)* ^N  *fS  ^>  ^^  *S  ij» ^n >^  ^S  *^  / 

/*   SETS   THE   SPECIFIED   PTR  TO   PTR-64,    AND  */ 

/*   STORES   THE   RESULT.  */ 

/*    INPUT:    DE   -    ADDRESS    OF    PTR  */ 

/  H£  it? lH.  ^f  ii^  !df  "ST  *J£  ^fc  ")f  *i*  "fcf  "+f  Sf  *fc  'I*  ^J?  "J?  S;  "if  't  S^"  ~t"  "lifN? *tf  "Jr  ~£z.  SC  SJ  ^Jf  ^Jr  "J<*  Htf  NP  ^lf  Stf  Sf  "J?  vt  ^f  "it  ^t  Sf  / 

CALL    [ GETSVALUE] ; 
BC=-64;     HL= HL+BC; 
CALL    [ STORESVALUE] ; 
END    SETSPTR; 

jT  *fC*T*^|«  iJZ  rf>  ^JC  *f%  7f>  rjZ  rfZ  ^N  »f-  *P  JN  ifC  rfl  «N^  *f»  *P  *J»  »p  »(»  ^f?  »fC  Jfs  ^fi  J(C ^fC ^fdfC ^JC^fC7f%  Jf»  *p*P  ^P  ^*  *J**(^*f»  *N  *r>  f 

/*   START   OF    UPDATESDISPLAYSPTRS    PROCESSING      */ 

s   5P  #r»  *f%  »n  ?n  *f*  »r»  *P  «t^  'f*  'P  •P  **f*  «t^  *P  ^^  *P  'P  >tn  *o  *o  fln  »N  *P  *n  *S  *n  3P  *P  ^r*  ^^  *P  *P  *P  *P  *^i  3^  *r»  *R  *f*  *f>  *P  *P  5^  / 

/*    SET  CURSOR  TO   LEFT   MARGIN   OF    8TH   LINE*/ 

/*    ON   DISPLAY.  */ 

A=T;    HL=C  CURSOR]; 
CALL    [GETS INDEX]  ; 
HL=446;     DE=DE+1; 
CALL    C  STORESVALUE] ; 

/*   SET   NEXTSCHAR  =    NEXTSCHAR  -    64  */ 

DE=  (  HL=  [  NEXTSCHAR] +BC)  ; 
CALL   SETSPTR; 

/*    SET   CURRENTSLINE    =    CURRENTSLINE   -    64    */ 
A=T;    HL= [ CURRENTS L I NE ] ; 
CALL    [GETS  INDEX]  ; 
CALL   SETSPTR; 

/*   SET  ENDSIBUFF    =    ENDSIBUFF   -    64  */ 

A=T;    HL=[ENDSIBUFF]  ; 
CALL    [GETS  INDEX] ; 
CALL   SETSPTR; 
END    UPDATESDISPLAYSPTRS; 

/*********^:**************************************/ 
/"*    START  OF    UPDATESCURSOR  PROCESSING  */ 

T=A;  /"*   SAVE    INPUT  TERMINAL   NUMBER  *s 

POS=HL;  /*   SAVE    INPUT   CURSOR  POSITION  */ 

BC=    -[DISPLAYSSIZE] ;    CY=0; 

IF    (HL= HL+BC)    CY  THEN        /*      SCROLLING   REQUIRED      */ 
DO; 

CALL   CHECKSSCROLLSLOCKOUT; 

IF    (A=>>A)    CY  THEN      /*   SCROLLING   LOCKED   OUT  */ 
DO; 
A=T; 

CALL   SENDSCLICK; 
END 
ELSE  /*   SCROLLING    IS   OK  */ 

DO; 
A=T; 

CALL   SCROLLSDISPLAY; 
CALL    UPDATESDISPLAYSPTRS; 
END; 
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END 
ELSE  /*    NO   SCROLLING   REQUIRED;    UPDATE   CURSOR  */ 

DO; 

A=T;    HL=C CURSOR]; 

CALL    [GETS INDEX];  /*    GET  CURSOR  PTR   ADDR      */ 

RL=POS;    /-*    SETUP    [  STORESVALUE]    PARAMETERS         */ 

DE=  DE+ 1 ; 

CALL   C STORES VALUE ] ;    /*   UPDATE   CURSOR  PTR  */ 

END; 
END   UPDATESCURSOR; 


EOF 

/**#***      TERMINAL  KEY  PROCESSING  PROCEDURES      ********/ 

/  JfC  if*i^if>iF  if*  *f»*f*if*  *f»^*^  ^*f.  ?f\  ?p  If*  ;fviFi^  <^^%  vfs  *fs  if*  if*  i]C  if*  if.  ifC  if*  if*  *f*  if*  if*  if*  if*  if*  if*  if*  if*  if*  if*  •?*  if*  if*  if*  pfS  if*  if*  -?*  if*  • 


[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 


TRUE 

FALSE 

BLANK 

CURSORSCHAR 

INPUTSWAITING 

MTSSCMDSREADY 

IBUFFSEMPTY 


•0FFH'] 

'0'  ] 

'20H'  ] 
'5FH*  ] 
'0FFH'] 
'0F0H'] 
'0'         ] 


/**********       prrS    KEY  COMMAND    MACROS      J***************:*/' 


[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 
[MACRO 


MTSSCMD 

CR 

CHARSDELETE 

LINESDELETE 

CAPITAL 

CURSORS LEFT 

CURS0R3RIGHT 

CLEARSSCREEN 

ENTER 

RSTSCMD 


'0A0HM 
•0DH'  ] 
'07FH'] 
•015H'] 
'0A1H'] 
'0A2H'  ] 
•0A3H'] 
'0A4H'] 
'0A5H'] 
'01EH'] 


/  if*  3fC  JfC  if*  if*  *f*  *f*  if"  if*  if*  if*  if*  if»  if*if*^f*  if*  *f*  if*  if*  if*  if*  if*  if»iP  if*  if*  if*  ^»  'T*-'^   3P*  ^^   if*  'f*   if*  *f»^T»  if*  if* 'f*  *P*f»  i^  ^^  'T>  *N  'f*  *^  ^S  ^N  »f*  / 

/*****       INTERNAL   AND   EXTERNAL    LINKAGE   MACROS      *******/ 


[ INT  GB   TB]  [  GB 

[MACRO   TCTSSTATUS 


0]  [TB    :=     1000H] 

'[HEX  GB   +    3E85H]  '] 


[MACRO 

ASCII 

'[HEX 

TB 

+ 

0003H] 

•  J 

[MACRO 

DISPLAYS BASE 

'[HEX 

TB 

+ 

0111H] 

'] 

[MACRO 

CURSOR 

'[HEX 

TB 

+ 

01D5H] 

'  1 

[MACRO 

CURRENTSLINE 

'  [HEX 

TB 

+ 

01DDH] 

'  ] 

[MACRO 

NEXTSCHAR 

'[HEX 

TB 

+ 

01E5H] 

'  ] 

[MACRO 

ENDS  I BUFF 

'[HEX 

TB 

+ 

01EDH] 

'] 

[MACRO 

CAPITALIZE 

•[HEX 

TB 

+ 

01F3H] 

'] 

[MACRO 

SWAPSPOS 

'[HEX 

TB 

+ 

01FDH] 

'] 

[MACRO 

COMPARESPTRS 

'[HEX 

TB 

+ 

0213H] 

'] 

[MACRO 

GETS  INDEX 

'[HEX 

TB 

+ 

024CH] 

'  ] 

[MACRO 

GETSVALUE 

'[HEX 

TB 

+ 

0259H] 

'] 

[MACRO 

STORES VALUE 

'[HEX 

TB 

+ 

0262H] 

'  ] 

[MACRO 

BLANKSDISFLAY 

'  [HEX 

TB 

+ 

02A3H] 

'] 

[MACRO 

GETSD I SPLAYS ADDR 

'[HEX 

TB 

+ 

02B7H] 

'] 

[MACRO 

CHECKSCURSOR 

'[HEX 

TB 

+ 

02D0H] 

'  ] 

[MACRO 

GETSTERMSSTATUS 

'[HEX 

TB 

+ 

02F9H] 

'] 

[MACRO 

SENDSBEEP 

'[HEX 

TB 

+ 

033EH] 

'  ] 

[MACRO 

UPDATESCURSOR 

'[HEX 

TB 

+ 

03C2H] 

•  ] 

KEYSCOMMAND:    PROCEDURE; 
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/*   CHECKS   FOR  A  TERMINAL  KEY  COMMAND   FOR  EVERY  KEY 
/*    INTERRUPT  RECEIVED. 
/*   KEY  COMMANDS    ARE: 


CMD 


MTS   CMD 


CR 


/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/*   CHAR  DELETE 

/* 

/*    LINE    DELETE 

/* 

/*   CAPTIALIZE 

/* 

/* 

/* 

/* 

/*   CLEAR  SCREEN 

/* 

/*   CURSOR  LEFT 

/* 

/*   CURSOR  RIGHT 

/■*■ 

/* 

/*    RST   CMD 

/* 


KEY 
ERROR  RESET 


RESULT 


NEW  LINE; 
ENTER;    SHIFT 
CR; 


BACK  SPACE 

NEXT  FMAT 


FS 


*/ 
*/ 
*/ 

*/ 
*/ 
%/ 
*/ 
*/ 
*/ 
*/- 
*/ 
*/ 
*/ 
*/ 


FS      S 


/* 
/* 
/* 
/■*■ 
/* 
/■* 
/* 
/* 
/* 
/* 
/* 


SUBPROCEDURES : 


INPUT:         A 

C 

OUTPUT:       A 

CALLED   BY: 


SENDS    A  COMMAND   TO 
MTS   FOR  PROCESSING 
TERMINATES   THE 
CURRENT   LINE   AND 
I/O   CTL   M; ESTABLISHES    IT  AS 
THE   CURRENT    INPUT 
BUFFER. 

DELETES   THE   LAST 
CHAR  ENTERED. 
DELETES    THE   CURRENT  */ 
LINE.  */ 

FLIP/FLOP  USED  TO  */ 
SET  OR  CLEAR  THE  */ 

TERMINAL  INPUT  MODE  */ 
TO  UPPER  OR  LOWER  */ 
CASE    LETTERS.  */ 

CLEARS  THE  512  CHAR  */ 
DISPLAY  BUFFER.  */ 

MOVES    CURSOR  POS  */ 

ONE  POSITION  TO  THE  */ 
LEFT.  */ 

MOVES   CURSOR  POS  */ 

ONE   POSITION   TO   THE   */ 

*/ 
*/ 
*/ 
*/ 
*/ 
*/ 


SHIFT   RS 


RIGHT. 

EXECUTE    A   RST  7 
INSTRUCTION.    FOR 
USE    WITH   CP/-M   DDT. 
ACCEPTSINPUT;    CHECKSLEFTSMARGIN; 
DELETESCHAR;    CLEARSPTRS ;    MTSSCMD; 
TERMINATESCL;    CARRIAGESRETURN; 
CHARSDELETE;    LINESDELETE;    CAPITAL;*/ 
CLEARSSCREEN;    CURSORSLEFT;  */ 

CURSORSRIGHT;    CHECKSCASE;    RSTSCMD;*/ 
TERMINAL   NUMBER  */ 

ASCII    CHAR  RECEIVED  */ 

TRUE    IF    CHAR   =    KEY  COMMAND  */ 

TERMSINPUTSCNTL;  */ 

DECLARE    (CHAR.T)    BYTE; 
DECLARE   RESPONSE   BYTE; 


ACCEPTS  INPUT:    PROCEDURE; 

/*   CHECKS   THE   TERMINAL'S   CURRENT  STATUS   TO  */ 

/*  DETERMINE  IF  THIS  NEW  INPUT  BUFFER  SHOULD  BE  */ 
/*  ACCEPTED.  IF  SO,  RETURNS  TRUE,  ELSE  FALSE.  */ 
/*  OUTPUT:  A  -  TRUE  IS  INPUT  CAN  BE  ACCEPTED.  */ 
/*  HL   -    IF    A    IS   TRUE   THEN   HL   CONTAINS        */ 

/*  THE    ADDRESS    OF    TERMSSTATUS.  */ 

,'  *f»  *^  *fs  f^  rfc  tjZ  »+*  *P  if*  »f*  *f»  ?f!  *f*  ^^  ifl  *f»  rj>  *fs  if*  *T*  *P  *f*  *T»  *f»  ?f*  *T*  *T*  »n  *f*  *P  *P  *J*  *<^  *^ ^P  *T*  ^^  *^  ^^  ^  *<*  *f*  *r*  *f*  *T*  *P  ^^  *f*  w 

A=T;    CALL    [ GETSTERMSSTATUS ] ; 

IF    (A: :C IBUFFSEMPTY] )     'ZERO   THEN 

DO;    /*    INPUT   BUFFER  HAS    NOT   YET   BEEN  */ 

/*PROCESSED;DO   NOT  ACCEPT   NEW  BUFFER*/ 

A=T;    CALL    [SENDS BEEP]; 

A=[ FALSE] ; 

END 
ELSE 

A=  [  TRUE]  ; 
END   ACCEPTS  INPUT; 


CHECKS LEFTS MARGIN:     PROCEDURE; 

/*^5f:*******^:***********3c***»*********************/ 
/*    CHECKS   TO   SEE    IF   CURRENT  LINE    IS   EMPTY.  */ 

/*    COMPARESPTRS    RETURNS   THE   APPROPRIATE   TRUE/         */ 
/*    FALSE    VALUE    IN   THE   A   REGISTER.  */ 

/*    INPUT:    DE   -    ADDRESS    OF    CURSOR  */ 
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/*  BC   -   COMPUTED   OFFSET   OF    TERM  NBR  */ 

/*   OUTPUT:    A  -    RETURNED   TRUE    IF   CURSOR    IS  */ 

/*  PRESENTLY  AT  LEFT   MARGIN.  */ 

/   »^^*P3R«^>^ ^*o»P *^*F^» ^>*^*r* ^ *f^ *r**P *^ *P *n *t**n?t* *** *p *f* *t* 3n 3F ^^» 3p ^^^^^^«t**P •^*fv*f»*ft*fC«fC/' 

HL=[CURRENTSLINE]+BC;/*HL=ADD   OF   CURRENTL I NE*/ 
CALL   CCOMPARESPTRS] ;  /*   COMPARE  */ 

/*    CURSOR   =    CURRENTSLINE    */ 
END   CHECKSLEFTS MARGIN; 


CLEAR* PTR:    PROCEDURE; 

/    ^p  *f*  *fc*^  *^  ^^  ^^  *^  ^^  *^  •^*n  *P  *^  ^*  ^^  *r*  ^>  ^S  *^  ^R  ^^  *I^  ^*  ^>  *o  ^S  W*  *P  »f?  'N  'o  ^p  ^*  *P  *P  3p  *N  *^  ^p  *N  <fE  3p  3p  *T*  *r»  3p  «r*  / 

/*    SETS    THE   VALUE   TO   THE   SPECIFIED    DISPLAY  */ 

/*   POINTER  TO   ZERO.  */ 

/*    INPUT:    HL   -    ADDRESS   OF   THE   DISPLAY  PTR  */ 

M(HL>  =  (A=0);    HL=HL+1;    M(HL)=A; 
END   CLEARSPTR; 


DELETESCHAR:    PROCEDURE; 

r*    DECREMENTS    THE   CURRENT   CURSOR  POSITION   AND  */ 

/*   SETS   NEW  CURSOR  POSITION   DISPLAY  TO   BLANK.  */ 

/*    INPUT:    DE   -    ADDRESS    OF    CURSOR  */ 

/*  BC   -   COMPUTED   OFFSET  OF   TERMINAL   NBR  */ 

CALL    C  GETSVALUE] ;  /*      GET  CURSOR  */ 

HL=HL-1;  /*      DECREMENT   CURSOR  */ 

CALL  [ STORESVALUE] ;  /*  SAVE  NEW  CURSOR  POS  */ 
CALL  [ GETSD I SPLAYS ADDR]  ;  /*  REPLACE  PRESENT  */ 
M(HL)  =  (A=    [BLANK]);    /*  CHAR  WITH   BLANK  */ 

END   DELETESCHAR; 

TERMINATESCL:    PROCEDURE; 

f  <fC  JfC  *ft  <ns  3(*  *t*  *r*  "t*  3p  *f*  3n  *n  m^  *f*  *r»  *r^  3p  -r*  3p  Sp  *t^  *f*  *n  *^  ^5  *n  ^F  ^^  ^^  ^^  ^n  ^^  **^  ^^  ^^  ^^  ^^  ^^  *^  *^  -o  5o  *•*  ^p  *^  *=^  *r*  *^  * 

/*   TERMINATE   THE   CURRENT  LINE.       THE  SAME  */ 

/*    PROCESSING    IS    DONE   FOR   BOTH  AN    MTS    CMD   AND  */ 

/*   A   CARRIAGE   RETURN    ( CR)    SINCE   EACH  SPECIFIES  */ 

/*   THE   END   OF    INPUT   BY  THE   USER.  */ 

/  t^t  ^fC  5fC  *fC  *p  ^fZ  »fC^  *f*  2f»  »f»  SfC  *P  9p  *f*  *K  3p  Sn  *f*  *f*  *f*  3f!  *o  »p  *<*  *?**r»  *>*r-  *f*  *^*p  <r*^*p  *f*  3n  *P*n  *P*K  *r»  *n  *i^*f*  *f*  *^  *&r 

/*   CHECK  CHAR  PRESENTLY  BEING  */ 

/■*■    DISPLAYED    AT  CURSOR   POSITION  */ 

/%   PRIOR  TO   UPDATING   PTRS.  */ 

A=T;    CALL    [  CHECKSCURSOR]  ; 

/*    END   OF   CURRENT   LINE;    UPDATE  */ 

f*    DISPLAY  POINTERS    FOR   NEW    INPUT         *s 
/*   BUFFER  AND   NEW  CURRENT   LINE.  */ 

/■*    SET   ENDS  I  BUFF  =  CURRENT  CURSOR   POS    *■/ 

A=T;    HL=[ENDSIBUFF] ; 

CALL    [GETS  INDEX]  ; 

HL=C CURSOR] +BC; 

BC=DE;    DE=HL; 

CALL    [ GETSVALUE] ; 

DE=  BC+  1 ; 

CALL    [STORESVALUE];    /*   ENDS  I BUFF = CURSOR  */ 
/*   MOVE   CURSOR  TO   BEGINNING   OF  */ 

/■*    NEXT      LINE.    HL   CONTAINS   THE  */ 

/•*   CURRENT  CURSOR  POSITION.  */ 

IF    (A=CHAR;    A:: [ENTER])     TZERO   THEN 

DO;    /*    CHAR    IS    EITHER   NEXT  LINE   OR  MTS   CMD   */ 

BC=64;    HL=HL+BC;/*ADD    64    TO   CURRENT   POS;*/ 

L=(A=L      8   0C0H);/*THEN   CLEAR  LOWER  6    BITS*/ 

A=T; 

CALL    [ UPDATESCURSOR] ; 

/*   SET  CURRENT   LINE   =    NEW  CURSOR  POS*/ 
A=T;    HL=[CURRENTSLINE] ; 
CALL    [GETS INDEX]  ; 
HL=[  CURSOR] +BC; 
BC=DE;    DE=HL; 
CALL    [ GETSVALUE] ; 
DE=BC+1; 
CALL    [STORESVALUE] ;/*CURRENTSL I NE= CURSOR*/ 
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END; 
END   TERMINATESCL; 


MTSSCMD:    PROCEDURE; 

/*  CHECK  TO  SEE  IF  THIS  INPUT  CAN  BE  ACCEPTED.  */ 
/*  IF  SO,  SET  TERMSSTATUS  TO  MTSSCMDSREADY  AND  */ 
/*  SET  MCP  BIT  IN  TASK  CONTROL  TABLE  TO  ENSURE  */ 
/-*  MCP  IS  CALLED  BY  THE  MONITOR  TO  PROCESS  THIS  */" 
/*   MTS   COMMAND.  */ 

r    *^*P*F  ^*t>  *P  *P*F  *.i  «f^  if\  *■£■  ^fs^fi^^^TC^fCip^P^  ^P  ^f*  *fi  .-js  •■»  -S  Jfs  ^C  ,-ft  jf;  7(Z  «f%*f?^f€  5R  ift  ^fC  5fC  ?>  2fC  JfC  5^  ijC  ^fs  JfC  *fC  Jfi  / 

CALL   ACCEPTS  INPUT; 
IF    (A=>>A)    CY  THEN 

DO;  /*   ACCEPT    INPUT  BUFFER  */ 

M(  HL)  ■  (  A=  [  MTSSCMDSREADY]  )  ; 

B=0;    C=(A=T); 

HL=CTCT$STATUS]    +    BC; 

M(HL)  =  (A=M(HL)    \    2)  ; 

CALL   TERMINATESCL; 

END; 
END   MTSSCMD; 


CARRIAGESRETURN:    PROCEDURE; 

S   5fC  3p  5p  «fC  »p  3fC 3p  ^r*  3p  *t^  »p  *n  *p  3p  *f*  *v>  3p  Sp  3p  -  F*  *f»  «P  *r^  --r>  3p  *7*  *r»  »^  3p  *^  *f»  -r*  ?P  3p  !p  »r»  *f*  *p 3p  ^^  ^^  m*  *?*  3P  *r*  *f*  3p  *r*  ' 

/*    USER  HAS   TERMINATE   CURRENT  LINE.       CHECK  TO  */ 

/*    SEE    IF    NEW    INPUT   BUFFER  CAN   BE   ACCEPTED.        IF  */ 

/*   SO,    SET  TERMSSTATUS   TO    INFUTSWAITING   AND  */ 

/*   TERMINATE    CURRENT   LINE.  */ 

/  *f*  Jp  ?p  *|s  3fs  »f*  ^fs  rf\  *K  ?n  3p  3p  *f*  *«*  "t*  *f*  3p  3(5  *r*  *r»  Sp  ?f>  *P  »P  Jp  »i"»  pp  *r*  3p  »|5  *r^  "t^  ^fs  *f*  *)s  Jf?  *fs  *r*  3p  *r»  *?*  !p  3p  3n  »r*  3P  *P  *P  / 

CALL   ACCEPTS  INPUT; 
IF    (A=>>A)    CY  THEN 

DO;  /*      ACCEPT    INPUT   BUFFER  */ 

M(HL)=(A=[  INPUTSWAITING]  )  ; 

CALL   TERMINATESCL: 

END; 
END   CARRIAGESRETURN; 


CHARSDELETE:    PROCEDURE; 

/*   CHECK  TO   ENSURE   THAT  CURRENT  LINE    IS   NOT  */ 

/•*■    EMPTY.    THEN   DELETE   THE   PREVIOUSLY  ENTERED  */ 

/*    CHAR.  */ 

/*    INPUT:    DE   -    CURSOR  OFFSET  ADDRESS  */ 

j   Jfl  3p  7f%  7jZ  *f*  «f»  Jf*  *P  3p  *f*  rfZ  ^P  JfC^P  *f»  »f»  »(s  *f\  *f>  <f*  *^  *f*  *f»  Jf*  »P  *K  »P  *f^  ?P  ^(s  JJC  »T%  ?p  ^^  ^f>  ^^  »^  *fc  jp  J^  »p  ^*  «-fs  ^f>  ^s  ^\  ^^  *p  /^ 

CALL   CHECKS LEFTS MARGIN; 
IF    (A=>>A)    CY  THEN 

DO;  '*   CURRENT  LINE   EMPTY        */ 

A=T; 

CALL    [SENDS BEEP] ; 

END 
ELSE 

DO;  /"*  DELETE   CHAR  xs 

A=T;    CALL    [  CHECKSCURSOR]  ; 

A=T;    HL=C CURSOR]; 

CALL    [GETS  INDEX] ; 

CALL   DELETESCHAR; 

END; 
END   CHARSDELETE; 


LINESDELETE:    PROCEDURE; 

sxxxxxxxxxxxxxx*xxxxxxxxxxxxxxxxxxxxxxxx**xx***xx/ 
/%   CHECK  TO   ENSURE   THAT  CURRENT  LINE    IS   NOT  */ 

/■*   EMPTY.       IF    NOT,    THEN   DELETE  THE   CURRENT   LINE.*/ 
/*    INPUT:    DE   -    CURSOR  ADDRESS    OFFSET  */ 

CALL   CHECKS LEFTS MARGIN; 
IF    (A=>>A)    CY  THEN 

DO;  /*   CURRENT  LINE   EMPTY        */ 
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s*    GET   CURSOR   OFFSET      */ 


A=T; 

CALL  [ SENDSBEEP] ; 

END 
ELSE 

DO; 

A=T;  CALL    [ CHECKSCURSOR]  ;    A=0; 

DO    WHILE    (A=>>A)     !CY; 

A=T;  HL=C  CURSOR] 

CALL  [GETS  INDEX] 

CALL  DELETESCHAR 

A=T;  HL=[  CURSOR] 

CALL  [GETS  INDEX] 

CALL  CHECKS LEFTS MARGIN; 

END; 

END; 
END   LINESDELETE; 


CAPITAL:    PROCEDURE; 

/    3(CSfB  *f*  *P*  5|C2fs  5f*  5^  5f»  5F  »fi  -ft  5ft  5f»5ft  5ft  5fC  -ft  7fc*£  *f\  *ft  5ft  *f*-r-  5ft  5ft  «f>Jp  -r*  5ft  5ft  5ft  5ft  Sp  ip  5fC  2^  5ft  5ft  5fC 5fC  5ft  5ft 5ft  5ft  5fC2ft  / 

/*   SET  OR  CLEAR  THIS   TERMINALS    CAPITALIZE   FLAG.    */ 

B=0;     C=(A=T);     HL=  [  CAPITALIZE]  +BC; 
M(HL)=    (A=M(HL)     NM )  ; 
END    CAPITAL; 


CLEARSSCREEN :    PROCEDURE; 

/*   CLEARS    THE   512    BYTE   DISPLAY  BUFFER  AND  */ 

f*    REINITIALIZES    THE    DISPLAY  POINTERS.  */ 

/*    INPUT:     HL    -    CURSOR   ADDRESS  */ 

CALL    CLEARSPTR;  /*    REINITIALIZE    DISPLAY   */ 

A=T;    HL=CCURRENT$LINE] ; /*    PTRS    AND   TERMINAL   */ 

CALL    [GETS INDEX];  /"*    STATUS.  */ 

CALL   CLEARSPTR; 

A=T;    HL= [ NEXTSCHAR]  ; 

CALL    [GETS INDEX]  ; 

CALL    CLEARSPTR; 

A=T;     CALL    [ GETSTERMSSTATUS] ; 

M(  HL)  =  (  A=  [  IBUFFSEMPTY]  )  ; 

/*  CLEAR  THE   DISPLAY  */ 

A=T;     HL=[DISPLAYSBASE]  ; 
CALL    [GETS INDEX]  ; 

CALL    [GETSVALUE];       S*    DISPLAYSBASE    PTR    IN    HL*/ 
BC=0;    DE=512;    /*   SETUP    INPUT  PARAMETERS    FOR  */ 
/*    [BLANKSDISPLAY]     PROC  */ 

CALL    [BLANKSDISPLAY]; 

/*    RESET  SWAPSPOS    TO   CURSORSCHAR  */ 

B=0;    C=(A=T); 
HL=[  SWAPSPOS] +BC; 
M(  HL)  =  (  A=  [  CURSORSCHAR]  )  ; 
END   CLEARSSCREEN; 


CURSORS LEFT:    PROCEDURE; 

/*    MOVES    THE    CURRENT   CURSOR   POSITION    BACK   ONE.  */ 

/*    CHECKS    TO    ENSURE    THAT   CURSOR    IS    NOT   ALREADY  */ 

/-*    AT   THE    LEFT   MARGIN    OF    CURRENT   LINE.  */ 

/'*    INPUT:    DE   -    CURSOR  ADDRESS  */ 

CALL   CHECKSLEFTS MARGIN; 
IF    (A=>>A)    CY  THEN 

DO;  /*    AT  LEFT   MARGIN;    SEND    BEEP  */ 

A=T; 

CALL    [SENDSBEEP] ; 

END 
ELSE 

DO;  /*    DECREMENT   CURSOR  *' 

A=T;    CALL    [  CHECKSCURSOR]  ; 

A=T;    HL=[  CURSOR]; 
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CALL  [GETS  INDEX] ; 
CALL  C  GETS VALUE] ; 
HL=  HL- 1 ; 

CALL    [ STORESVALUE] ; 
END; 
END   CURSORSLEFT; 


CURSORSRIGHT:    PROCEDURE; 

/*   MOVE   THE   CURRENT  CURSOR  POSITION   FORWARD   ONE.*/ 
/*    INPUT:    DE  -    CURSOR  ADDRESS  */• 

A=T;    CALL    [  CHECKSCURSOR]  ; 

A=T;    HL=C  CURSOR] 

CALL    [GETS INDEX] 

CALL   [GETSVALUE] 

HL=HL+1;  /*   SETUP   NEW  CURSOR  POS   */ 

A=T;    CALL    [ UPDATESCURSOR] ; 

END   CURSORSRIGHT; 


CHECKSCASE:    PROCEDURE; 

f  »fv  ?p  *P  »r*  ^r*  »r»  *f*  *r*  *^  *r*  'r*  'P  •o  *o  *P  *f»  3p  *r*  3p  ^  ^^  *■*  »r*  *^  'N  *7*  *r*  *?*  3n  *?*  *f»  *^  '?*^r»  *f>  3p  *f*  ^^  3p  *r*  *t»  3p  *t*  *r»  *f*  5fs  »f*  2js  / 

/"*  USES  A  CASE  STATEMENT,  INSTEAD  OF  'ELSE  DO'  */- 
/*  TO  CHECK  FOR  THE  LAST  FOUR  KEY  COMMANDS.  IF  */ 
/■*  NOT,  RESPONSE  IS  SET  TO  FALSE.  (NOTE:  CASE  */ 
/■*  STMT  MUST  BE  USED  TO  GET  AROUND  ML80'S  PARSE  */ 
/*  STACK  OVERFLOW,  CAUSED  BY  TOO  MANY  ' IF  THEN  */ 
/*   ELSE   DO'    STMTS.  */ 

/*    INPUT:    DE   -    CURSOR  ADDRESS  */ 

H=0;    L=(A=CHAR-0A1H) ;    /*   SETUP   CASE   OFFSET      */ 
IF    (A::0)    PLUS      8    (A:: 4)    MINUS    THEN 

DO   CASE   HL; 

CALL   CAPITAL; 

CALL   CURSORS LEFT; 

CALL   CURSORSRIGHT; 

DO;     HL=DE;    CALL   CLEARSSCREEN ;    END; 

END 
ELSE 

RESPONSE= ( A= [ FALSE] ) ; 
END    CHECKSCASE; 


RSTSCMD:    PROCEDURE; 

/*    SET   RST   BIT    IN   THE   TASK  CONTROL    TABLE   SO  */ 

/■*    RST  7    IS    EXECUTED   BY   MONITOR.  */ 

B=0;    C=(  A=T)  ; 
HL=[TCT$STATUS]    +    BC; 
M(HL)=(  A=M(HL)    N    10H)  ; 
END   RSTSCMD; 

/*    START   OF    KEYSCOMMAND    PROCESSING  */ 

T=A;    CHAR=(A=C);    /"*      GET    INPUT   PARAMETERS  */ 

RESPONSES  A=[  TRUE])  ;  /*    INITIALIZE   RESPONSE      */ 

A=T;     HL=[ CURSOR];  S*    GETS  INDEX   PARAMETERS  */ 

CALL   [GETS  INDEX];         /*    GET  CURSOR  OFFSET   ADDRESS*/ 

IF    (A=CHAR-[MTSSCMD])    ZERO   THEN  /*   MTS   CMD      */ 

CALL   MTSSCMD 

ELSE   DO; 

IF    (A=CHAR;    A::  [CRD    ZERO   \ 

(A:: [ENTER])    ZERO   THEN   /*   NEXT  LINE   OR  */ 

/*    ENTER  DEPRESSED   */ 

CALL   CARRIAGES RETURN 
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ELSE   DO; 

IF    ( A= CHAR- [CHARS DELETE ] )    ZERO  THEN 

CALL   CHARSDELETE  /*  CHAR  DELETE   CMD   */ 

ELSE  DO; 

IF  ( A=CHAR-[LINESDELETE])  ZERO  THEN 

CALL  LINESDELETE     /*       DELETE  LINE  CMD  */ 

ELSE   DO; 

IF    (A=CHAR-[RSTSCMD]  )    ZERO   THEN 

CALL   RSTSCMD  /*  RESTART  7   CMD        */ 

ELSE 

CALL   CHECKSCASE;  /*  USE   CASE   STMT  TO  */ 

/*  CHECK  FOR  REMAINING  */ 

/*  KEY  COMMANDS.  */ 

END;  END;  END;  END;      /*  END  OF  ELSE  DO'S      */ 

A= RESPONSE; 

END  KEYSCOMMAND; 


TERM* I NPUTSCNTL :  PROCEDURE ; 

/*  CONVERTS  THE  INPUT  MATRIX  CODE  TO  ASCII;  CHECKS  */ 

/*  FOR  CAPIALIZATION  AND  CONVERTS  LOVER  TO  UPPER  */ 

/*  CASE  LETTERS  IF  REQUIRED;  CHECKS  FOR  MTS  KEY  */ 

/*  COMMANDS;  IF  NOT  A  KEY  CMD  THEN  THE  CHAR  IS  */ 

/*  DISPLAY  AT  THE  TERMINAL  AND  CURSOR  INCREMENTED.  */* 

/*  INPUT:  C  -  MATRIX  CODE  */" 

/*         E  -  TERMINAL  NUMBER  */ 

/*  CALLED  BY:  TERMINALS HLDR  ( INTERRUPT  MOD)  */ 

DECLARE  CCHAR.T)  BYTE; 

T=(A=E);  /*  SATO  TERMINAL  NUMBER     */ 

/■*    CONVERT  MATRIX  CODE  TO  ASCII  */ 
B=0;  HL=CASCin+BC; 
CHAR=(A=M(HL))  ; 

/*   CHECK  FOR  CAPITALIZATION  */ 
D=0;  HL=[CAPITALIZE]+DE; 
IF  (A=M(HL);  A::0)  !ZERO   8  (A=CHAR-6lH)  PLUS 

8  (A=CHAR-7BH)  MINUS  THEN  /*  CONVERT  TO      */ 
CHAR=(  A=CHAR-20H)  ;  /"*    UPPER  CASE  LETTER  */ 

/*  CHECK  FOR  ANY  KEY  COMMANDS    */ 
C=(  A=CHAR)  ;  A=T; 
CALL  KEYSCOMMAND; 

/*  A  REG  RETURNED  TRUE  IF  KEY  CMD  FOUND  */ 
IF  (A=>>A)  !CY  THEN         /*  DISPLAY  CHAR       */ 

DO; 

A=T;    CALL    C  CHECKSCURSOR]  ; 

A=T;    HL=[  CURSOR]; 

CALL    [GETS INDEX];     /*    GET  CURSOR  OFFSET  */ 

CALL    [ GETSD I SPLAYS ADDR] ; 

M(HL)  =  (A=CHAR)  ; 

/*  UPDATE  CURSOR  POSITION  BY  ONE.  BC  WAS*/ 
/*  RETURNED  FROM  GETSD I SPLAYS ADDR  SET  */ 
/■*■   TO   THE   VALUE   OF   CURSOR.  */ 

HL=  BC+  1 ; 

A=T;  CALL  [ UPDATESCURSOR] ; 

END; 
END  TERMS INPUTSCNTL; 

EOF 

/*****   TERMINAL  INTERFACE  SYSTEM  FUNCTIONS   ********/ 
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[MACRO    IBUFFSEMPTY 
[MACRO   MTSSCMDSREADY 
[MACRO   CR 
[MACRO   LF 


'0*  ] 

'0F0H'  ] 

'0DH'  ] 

'0AH'  ] 


/*****   INTERNAL  AND  EXTERNAL  LINKAGE  MACROS   *******/ 


[ INT   GB   TBI                [GB 

:=    0]        [TB    :=     1000H] 

[MACRO 

TASK 

' M(  [  HEX  GB   +    3E80HI ) ' ] 

[MACRO 

MTSSMESSAGE 

'  [HEX  TB    +    0UCH]  *     ] 

[MACRO 

SIZESMESSAGE 

'[HEX  TB   +    01CFH]  '     ] 

[MACRO 

CURSOR 

'[HEX  TB   +    01D5H3  *     ] 

[MACRO 

CURRENTSLINE 

'[HEX  TB   +    01DDH1  '     ] 

[MACRO 

NEXTSCHAR 

'  [HEX   TB    +    01E5H]  *     ] 

[MACRO 

ENDS  I BUFF 

'  [HEX  TB   +    01EDH]  '     ] 

[MACRO 

COMPARESPTRS 

[HEX  TB   +    0213H]  *     ] 

[MACRO 

CONVERTS NUMBRSTOSASC I  I     '[HEX  TB    +    023 1 H]  '     ] 

[MACRO 

GETS  INDEX 

[HEX  TB    +    024CH] '     ] 

[MACRO 

GETSVALUE 

[HEX   TB    -r    0259H]  '     ] 

[MACRO 

STORESVALUE 

[  HEX  TB    +    02G2H]  '     ] 

[MACRO 

MOVESBYTES 

[  HEX  TB    +    026BH1  '     ] 

[MACRO 

SWAPSCURSOR 

[  HEX  TB   +    027EH]  '     ] 

[MACRO 

BLANKSDISPLAY 

'  [  HEX   TB   +    02A3H1  ' 

[MACRO 

CHECKSCURSOR 

'  [  HEX  TB   +    02D0H]  ' 

[MACRO 

GETSDISPLAYSADDR    '[REX   TB    +    02B7H]  ' 

[MACRO 

GETSSTATUSSADDR      ' [ HEX   TB   +    02ECH] ' 

[MACRO 

GETSTERMSSTATUS       ' [ HEX   TB    +    02F9H] ' 

[MACRO 

UPDATESCURSOR 

'  [  HEX  TB   +    03C2H]  ' 

BLINKSCURSORS:  PROCEDURE; 

/*  SWAPS  THE  CURRENT  CONTENTS  OF  CURSOR(  I)  WITH  */ 
/%  SWAPSPOSC  I)  FOR  EACH  TERMINAL  (  1  =  0  TO  3) .  */ 
/*  CALLED  BY:  TIMERSHDLR  ( INTERRUPT  MOD)  */ 

DECLARE  I  BYTE; 
I=(A=3)  ; 
REPEAT; 

HL=  [ CURSOR]  ; 

CALL    [GETS  INDEX]  ; 

CALL    [GETSDISPLAYSADDR]; 

A=  I ;    CALL    [  SWAPSCURSOR]  ; 

I=(A=I-1)  ; 
UNTIL    ( A: :0)    MINUS; 
END   BLINKSCURSORS; 


CLEARSSTATUSSLINE:    PROCEDURE; 

/*    CLEARS    THE   STATUS    LINE   OF    THE   SPECIFIED   TERMINAL.*/ 

/*    INPUT:       A  -    TERMINAL   NUMBER  */ 

/•*   CALLED    BY:       MTSSIPL    (MONITOR   MOD);  */ 

/*                                  BUMP              (SERVICE   MOD);  */ 

CALL   [ GETSSTATUSSADDR] ; 

BC=0;     DE=64;                       /*    SETUP    PARAMETERS    FOR  */ 

CALL    [BLANKSDISPLAY];    /*    BLANKSDISPLAY  PROC  */ 
END   CLEARSSTATUSSLINE; 


MTSSMSG:    PROCEDURE; 

/*    CONTROLS    THE    MTS    MESSAGE    DISPLAY   FIELD   ON   THE  */ 

/*   STATUS   LINE   OF   THE   TERMINAL   SPECIFIED   BY    'TASK'.    */ 
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/*  the  mts  message  field  starts  at  position  4a  and  */ 

/*   UTILIZES   THE   REMAINING    16    BYTES   FOR  MTS   MESSAGES  */ 

/*    ( SEE   MTSSMESSAGE   DATA) .  */- 

/*    INPUT:       E   -    MTS   MESSAGE   NUMBER.  */ 

/*   CALLED   BY:       BUMP    (SERVICE   MOD);  */ 

/*                                  PRINTERSHDLR   (  INT  MOD) ;  */ 

/*                                  MINISDISK   (MONITOR  MOD);  */ 

/*                                  RECOVER        (MONITOR  MOD) ;  */ 

/*                                  BUMPSTASK   (MONITOR  MOD);  */ 

/5ft^5f*5^5f»5ft5ft5ft5f»5ft  5f.3ft  5ft5ft5f;5ft;ft5ft..7t5ft5fC5ft  5fC5fC  ^^^^^-^^^^^5^^f!^tJfsJFC?fC^C^C?fs^CJfC?fC5fC^C^C^C3fC3f!/' 

DECLARE   MSGNO   BYTE; 
MSGNO=(A=E)  ; 
A=    [  TASK]  ; 

CALL    [ GETSSTATUSSADDR] ; 

BC=48;  /*   MTS   MSG   FIELD   OFFSET  FROM*/ 

/*    STATUS    BASE   ADDRESS  */ 
A= MSGNO;    E=4;    CY=0; 

REPEAT;                                  /*   COMPUTE   OFFSET    INTO   THE  */ 

A=<<A;                           /*   MTSSMESSAGE  DATA   VECTOR  */ 
UNTIL   (E=E-1)    ZERO; 

DE=(HL=HL+BC)  ;                 /*   SETUP   PARAMETERS   FOR  */ 

B=0;    C=A;                             /*    [ MOVESBYTES]    PROC  */ 
HL= [ MTSSMESSAGE] +BC ; 

BC=16;    CALL    C MOVESBYTES] ;                    /*    DISPLAY  MSG  */ 
END   MTSSMSG; 


SIZESMSG:    PROCEDURE; 

/  3(C  5fC  5f»  5fC  5ft  5ft  5ft  5ft  5ft  ^ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  -ft  5ft  *f>  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  .ft5ft5f!  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5f>5f€  / 

/*   CONTROLS   THE   DISPLAY  OF   THE   CURRENT   MEMORY  SIZE  */ 

/*    ON   THE   STATUS    LINE   OF    THE   TERMINAL   SPECIFIED    BY  */ 

/*    'TASK'.       THE   SIZE   MESSAGE   STARTS    AT   POSITION   40  */ 

/*    AND   HAS    THE   GENERAL   FORMAT:  *^ 

/*                 40                 47  */ 

/■*                 */ 

/*                   NRK  MTS                      E.G.        16K  MTS  */ 

/%                 */ 

/-*    WHERE  */ 

/*                 *NR'     IS   THE   CURRENT   MEMORY  SWAP   SIZE  */ 

/*                 ALLOCATED   TO   THAT  TERMINAL    USER.  */ 

/*   THE   RANGE    IS   FROM  0   TO   48K.    THE    INPUT   MEMORY  */ 

/*   SIZE   NUMBER    IS   CONVERTED   TO   ASCII    FOR  DISPLAY.  */ 

/*    INPUT:       A   -    MEMORY  SIZE  */ 

/*   CALLED   BY:       SIZE    (SERVICE   MOD);  */ 

/*                                   LOGIN    (SERVICE    MOD);  */ 

/*                                  RECOVERSSTATUSSLINE    (MONITOR  MOD);  */ 

DECLARE   MEMSSIZE   BYTE; 

MEMSSIZE=A; 

A=    I  TASK]  ; 

CALL    [ GETSSTATUSSADDR]  ; 

BC=40;                                     /*   SIZE   MSG   FIELD   OFFSET  */ 

HL=HL+BC;                               /*    HL=  STARTING   ADDRESS    OF  */ 

/*   SIZE   MSG   FIELD   ON   STATUS  */ 

/*   LINE.  */ 

A= MEMSSIZE; 

CALL    C  CONVERTSNUMBRSTOSASC II]; 

M(HL)  =  (A=B);    HL=HL+1;         /*   DISPLAY  MEMORY  SIZE  */ 

M(HL)  =  (A=C);    DE=HL+1;         /*   SETUP   PARAMETERS  */ 

HL=CSIZESMESSAGE] ;  /*   FOR   [MOVESBYTES]    PROC*/ 

BC=6;    CALL    [MOVESBYTES];/*    DISPLAY  REST   OF  */ 

/*                SIZE   MESSAGE  */ 

END   SIZESMSG; 


STATUSSMSG:    PROCEDURE; 

/*   CONTROLS   THE   STATUS    DISPLAY.    POSITIONS   0   THRU   39  */ 

/*    OF    THE    TERMINAL   STATUS    LINE.        IT   HAS    THE  */ 

/*   FOLLOWING   GENERAL   FORMAT:  */ 

/*  0  39  */ 

/;£  —————————————————————————————  —  —  —  —  —  —  —  —  —  —  —  %/ 

/*  A=NOrB=NOrC=NOrD=NOrE=NOrF=NOrG=NOrH=NOr  */ 
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/*  WHERE  #/ 

/%  THE  LETTER  ON  THE  LEFT  OF  THE  EQUAL  SIGN  */ 

/*  SPECIFIES  THE  DRIVE.  ■*/ 

/*  'NO'  IS  THE  DISK  NUMBER  (0-31).  */ 

/*  *  r*  IS  AN  OPTIONAL  PARAMETER  WHICH  IS  */ 

/*  DISPLAYED  WHEN  THE  ATTACHED  DISK  IS  A  */ 

/■*  RESTRICTED  (r)  READ  ONLY  DISK.  */ 

/*  THE  TERMINAL  IS  SPECIFIED  BY  'TASK'.  */ 

/*  INPUT:  A  -  ASCII  CODE  FOR  RESTRICT  (r),  */ 

/*  OR  BLANK  ( SPACE) .  */ 

/*  B  -  DRIVE  NUMBER  (MUST  BE  CONVERTED  TO  */ 

/*  A  LETTER  FOR  DISPLAY)  .  */ 

/*  C  -  DISK  NUMBER  (RANGE  0-31;  MUST  BE  */ 

/*  CONVERTED  TO  ASCII  FOR  DISPLAY).  */ 

/*  CALLED  BY:  LOGIN      (SERVICE  MOD);  */ 

/*  ATTACH      (SERVICE  MOD);  */ 

/*  RECOVERSSTATUSSLINE  ( MONITOR  MOD) ;  */ 

DECLARE  ( RESTRICT, DRIVESLTR, DlSKSNR)  BYTE; 

/*  GET  INPUT  PARAMETERS      */ 
RESTRICT=A;  DRIVE$LTR=  ( A=B)  ;  DISK$NR=  (  A=C)  ; 
A=  C  TASK]  ;  CALL  C  GETSSTATUSSADDR]  ; 

/*  COMPUTE  THE  APPROPRIATE  STATUS    */ 

/*  BASE  OFFSET  TO  DETERMINE  WHERE    */ 

/*  TO  DISPLAY  THIS  STATUS  INFO       */ 
C=0;  B=(A=DRIVE$LTR) ; 
DO  WHILE  (A: :0)  !ZERO; 
C=( A=C+3) ; 
B=(A=B-1)  ; 
END; 
HL=HL+BC;    /*   SETUP  ADDRESS  FOR  STATUS  MSG.     */ 

/*  DISPLAY  DRIVE  LETTER  */ 

M(HL)  =  (A=DRIVESLTR+41H)  ; 
HL=  HL+ 1 ; 

/*  DISPLAY  EQUAL  SIGN  */ 

M(  HL)  =  (  A=  '  =  '  )  ; 
HL=HL+1;  A=DISKSNR; 

/*  CONVERT  AND  DISPLAY  DISK  NUMBER  */ 
CALL  [ CONVERTSNUMBRSTOSASC I  I ] ; 
M(HL)  =  (A=B);  HL=HL+1; 
M(HL)  =  (A=C);  HL=HL+1; 

/*  DISPLAY  RESTRICT  OR  BLANK  BYTE    */ 
M(  HL)  =  (  A=  RESTRICT)  ; 
END  STATUSSMSG; 


TERMINALSSTATUS:  PROCEDURE; 

/*  PROVIDES  THE  INTERFACE  POINT  FOR  OTHER  MTS  SYSTEM*/ 
/*  FUNCTIONS.  RETRIEVES  THE  CURRENT  TERMINAL  STATUS  */ 
/*  FOR  THE  TERMINAL  SPECIFIED  BY  'TASK'.  */ 

/*  OUTPUT:  A  -  SET  TO  THE  TERMINAL  STATUS  (EITHER  */ 
/*  INPUTSWAITING;  MTSSCMDS READY;  OR     */ 

/*  IBUFFSEMPTY)  BY  GETS TERMS STATUS  PROC.*/ 

/*  CALLED  BY:  WRITESTERMINAL;  MTS(  SERVICE  MOD);  */ 
/*  READSTERMINAL;  */ 

/*  MTSSIPL  (MONITOR  MOD);  */ 

/*****#**********************************************/ 

A=  C  TASK]  ; 

CALL  [GETSTERMSSTATUS] ; 

END  TERMINALSSTATUS; 


READSTERMINAL:  PROCEDURE; 

/*  GETS  THE  NEXT  CHAR  FROM  THE  TERMINAL  INPUT  BUFFER*/ 
/*  SPECIFIED  BY  'TASK'.  *' 

/*  IT  IS  ASSUMED  THAT  THE  CALLING  PROCEDURE  HAS  */ 
/*  CHECKED  TERMINAL  STATUS  TO  ENSURE  INPUT  IS  */ 
/*  WAITING  PRIOR  TO  CALLING  READSTERMINAL.  */ 

/*  A  TEST  FOR  END  OF  IBUFF  IS  MADE  AND  IF  SO,  A  */ 
/*  -CR-  CHAR  IS  RETURNED;  THE  TERMINAL  STATUS  IS  SET*/ 


166 


/*  TO  EMPTY;  AND  THE  NEXTSCHAR  PTR  IS  SET  TO  CURRENT*/ 
/*  LINE.  x/ 

/*  IF  NOT  AT  END  OF  IBUFF,  THE  NEXT  CHAR  IS  RETURNED*/ 
/*  AND  THE  NEXTSCHAR  PTR  INCREMENTED.  */ 

/*  OUTPUT:  A  -  CHAR  OR  CR  */ 

/*  CALLED  BY:   MTS  (SERVICE  MOD);  MTSSIPL  (MONITOR);*/ 
/*  MONITOR  (MONITOR  MOD);  #/ 

DECLARE  CHAR  BYTE; 
DECLARE  PTR(2)  BYTE; 

A=  [  TASK]  ;  HL=  [  NEXTSCHAR]  ; 

CALL  [GETS INDEX];  /*  DE=ADDR  OF  NEXTSCHAR  PTR  */ 
HL= [ENDS IBUFF] +BC;/*  HL=ADDR  OF  ENDS  I BUFF  PTR  */ 
CALL  [COMPARESPTRS] ;  /*  NEXTSCHAR= ENDS IBUFF  ??  */ 
IF  (A=>>A)  CY  THEN 

DO;  /*  AT  END  OF  IBUFF,  SET         */ 

/*  NEXTSCHAR  =  CURRENTSLINE      */ 

A=    [TASK];    HL=  [  CURRENTSLINE]  ; 

CALL    [ GETS  INDEX] ; 

BC= ( HL=  [  NEXTSCHAR] +BC)  ; 

CALL    [GETS VALUE];         /*   HL= CURRENTSLINE   VALUE*/ 

DE=  BC+ 1 ; 

CALL    [  STORESVALUE]  ; 

/*  UPDATE  TERMINAL  STATUS        */ 

CALL  TERMINALSSTATUS;    /*  RETURNS  HL=ADDR   */ 

/*  OF  TERMSSTATUS.   */ 

M(HL)  =  (A=    [  IBUFFSEMPTY]  )  ; 

/*         RETURN    'CR'    TO   CALLER  */ 

CHAR=  (  A=  [  CR]  )  ; 

END 
ELSE  /*  NOT  AT  END  OF  IBUFF  */ 

/*  RETURN  THE  CHAR  */ 

DO; 

A=  [  TASK]  ;  HL=  [  NEXTSCHAR]  ; 

CALL  [GETS  INDEX];    /*  GET  AND  SAVE  */ 

PTR=HL;  /*  NEXTSCHAR  OFFSET     */ 

CALL  [GETSDISPLAYSADDR] ; 

CHAR=(  A=M(HL)  )  ;      /*   RETURN  CHAR  */ 

/*  INCREMENT  NEXTSCHAR  */ 

DE=  (  HL=  PTR+ 1 )  ;       /*  SETUP  [ STORESVALUE]   */ 

HL=BC+1;  /*    PARAMETERS  */ 

CALL  [ STORESVALUE] ; 

END; 

A=CHAR;  /*  RETURN  APPROPRIATE  RESPONSE   */ 

END  READSTERMINAL; 


WRITESTERMINAL:  PROCEDURE; 

^t^ZfZffZifZifi^Cifi^fi7f\7jc^fZ7ti'f*^f>^fi  ^  *r*  5ft  ^c  yfz  yz  ift  ^fz  jfc  ^c  Jft  ^  Sfwr*  *n  •!•  -f*  5p  *f*  »f!  ^R^*^^c^*'fc^c»fC5f;?K  ^C"f>?p5p^t3K^;/' 

/*  DISPLAYS  THE  CHAR  AT  THE  CURRENT  CURSOR  POSITION  */ 
/*  OF  THE  TERMINAL  SPECIFIED  BY  'TASK'.  IT  CHECKS  */ 
/*  FOR  TWO  SPECIAL  CHARACTERS  WHICH  AFFECT  THE  */ 
/*  DISPLAY  CURSOR  POSITION.  */ 

/*  'CR*  RETURNS  THE  CURSOR  TO  THE  BEGINNING  OF  THE  */ 
/*  CURRENT  DISPLAY  LINE.  '  LF'  MOVES  THE  CURSOR  DOWN  */ 
/*  TO  THE  NEXT  LINE.  */ 

/*  FOR  ALL  OTHER  CHARACTERS,  THE  CHAR  IS  DISPLAYED  */ 
/*  AND  THE  CURSOR  POSITION  INCREMENTED.  */ 

/*  PRIOR  TO  OUTPUT,  THE  CURRENT  CURSOR  DISPLAY  */ 
/*  ADDRESS  IS  CHECKED  TO  ENSURE  THAT  THE  CURSOR  CHAR*/ 
/*  IS  SAVED.  OUTPUT  OF  CHARACTERS  IS  DONE  UNDER  */ 
/*  INTERRUPT  LOCKOUT  TO  ENSURE  THAT  SWAPPING  BY  */ 
/*  BLINKSCURSORS  PROC  IS  NOT  DONE.  */ 

/*  SUBPROCEDURE:  UPDATESPTRS;  */ 

/*  INPUT:  E  -  ASCII  CODE  OF  CHAR  TO  BE  DISPLAYED  */ 
/*  CALLED  BY:   MTS  (SERVICE  MOD);  */ 

/*  MTSSIPL  (MONITOR  MOD);  */ 

***  s?  ~a  H£  ^f  "4?  *a  ^r  *-t^  *itr  ~i?  "4?  *&  s^  'Sf  "j?  *j£  *jf  Ht*  "t*  *i*  *j*  *jf  sfc  str  ~-t?  ^  y^  ^fc  vfc  vf^  it  ^k  v*  ■  '■*  m^c  vtr  s^  s^  sc  "■**  *fc  ~fc  *fc  ^fi  Sf  ss  ^t  y^  y**  ^fr  *t  ~t  ■■' 

DECLARE    CR<iR   BYTE; 

DECLARE   SAVESCURSOR   (2)    BYTE; 
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DPDATE8PTRS:    PROCEDURE; 

/*  AFTER  THE  DISPLAY  OF  EACH  CHAR  THE  CURRENT  */ 
/*  LINE  PTR  AND  NEXT  CHAR  PTR  ARE  ALWAYS  SET  TO  */" 
/*   NEW  CURSOR  POSITION.       ADDITIONALLY,    THE  */" 

/*   TERMINAL'S   STATUS    IS   SET  TO    I  BUFF   EMPTY.  */ 

f   *P *r* *^^P  ^^  ^^ ^^ ^^ ^^  ^^  ^^ ^^ ^*^s  ^^ ^> *I^^^  *^ ^S  *r*  *^ *P  *>^  *P  *^  *^  *f* ^R  *n  *^ ^^  m*  *t^ *t^  ^*  *r* 5^3p *f*  ?P*P  »r* *t* *t* *f*  *f*  5P  r 

/*      GET  CURSOR  POSITION  */ 

A=  [  TASK]  ;    HL=  [  CURSOR]  ; 
CALL    [GETS INDEX] ; 

/*      SET   CURRENTSLINE   =    CURSOR  */ 

BC=(HL=[  CURRENTSLINE] +BC) ; 

CALL    [ GETSVALUE] ;         /*      HL=    CURSOR  VALUE  */ 

DE=  BC+ 1 ; 

CALL    [  STORES VALUE ] ;    /*   CURRENTSL I NE= CURSOR      */ 
SAVESCURSOR=HL; 

/*   SET  NEXTSCHAR  =    CURSOR  */ 

A=  C  TASK]  ;    HL=  [  NEXTSCHAR]  ; 
CALL    [ GETS  I NDEX] ; 
HL=SAVESCURSOR;    DE=DE+1; 
CALL    [  STORES VALUE ]  ;    /'*    NEXTSCHAR= CURSOR  */ 

/%   SET  TERMINAL   STATUS    =    EMPTY      */ 
CALL   TERMINALSSTATUS; 
M( HL)  =  (  A= [ IBUFFSEMPTY] )  ; 
END   UPDATESPTRS; 

/*      START   OF    WRITESTERMINAL   PROCESSING  */ 

s  \^  -|*>  «v  •*&  "jp  "jc  -^  »jp  *jj  *v  *+■  s^  "V  s?  *jf  "Ht  Sf  ■"_/■"  *  ^  "if  Mf  "Hfc  "j?  *tr  *■£  "  Jt  St  "ti  St  "Jc  Si  y;  Sf  S?  S?  *t  Nf  Sf  "(f  *J£  vf£  S£  Sf  St  / 

DISABLE; 

CHAR=(A=E)  ; 

A=  [  TASK]  ;    CALL    [  CHECKSCURSOR]  ; 

A=  C  TASK]  ;    HL=  C  CURSOR]  ; 

CALL    [GETS  I  NDEX]  ; 

IF    (A=CHAR-[CR])    ZERO   THEN 

DO;  /*   CARRIAGE   RETURN      */ 

CALL    [  GETSVALUE]  ;  /*    HL=CURSOR  */ 

L=(A=L      8   0C0H)  ;  /*   GET  LEFT  MARGIN  */ 

END 
ELSE 

DO; 

IF    (A=CHAR-    [LF])    ZERO   THEN 

DO;  /*   LINE   FEED  */ 

CALL    [GETSVALUE];  /"*    HL=CURSOR  */ 

BC=64;    HL=HL+BC; 
END 
ELSE  /*   DISPLAY  CHAR  */ 

DO; 

SAVESCURSOR=HL; 
CALL    [GETSDISPLAYSADDR] ; 
M(HL)  =  (A=CHAR)  ; 
DE= ( HL=SAVESCURSOR)  ; 
CALL    [ GETSVALUE] ; 

HL=HL+1;  /*    INCREMENT  CURSOR  */ 

END; 
END; 

/*   HL   REG  HOLDS   NEW  CURSOR  POSITION  */ 

A=  [  TASK]  ;    CALL   [  UPDATESCURSOR]  ; 
ENABLE; 

/*    UPDATE   OTHER  DISPLAY  PTRS  */ 

CALL   UPDATESPTRS; 
END   WRITESTERMINAL; 


EOF 


168 


/*  DEBUG  MODltLE  */ 

/*  */ 

/*  THIS  MODULE  PROVIDES  THE  FACILITY  FOR  INTERACTIVE  */ 

/*  DEBUGGING  OF  MTS.  THE  DEBUGGER  MODULE  WAS  DEVEL-  */ 

/"*    OPED  TO  REPLACE  THE  SYCOR  HARDWARE  DEBUGGER  DUE  */• 

/■*   TO  ITS  QUESTIONABLE  HARDWARE  RELIABILITY  AND  LIM-  */ 

/*  ITED  DEBUG  CAPABILITY.  */ 

r*  */ 

/*  THE  DEBUG  MODULE  IS  DIVIDED  INTO  FOUR  BASIC  SUB-  */ 

/*  MODULES:  #/• 

/*  */ 

/*  <  1 )  DEBUG  ENTRY  AND  COMMAND  PROCESSOR  */ 

/*  */• 

/*      THIS  SUBMODULE  CONTAINS  THE  ENTRY  POINT  FOR  */ 

/*      THE  DEBUGGER  AND  THE  LOGIC  TO  SAVE  THE  MACHINE  */ 

/*      AND  MTS  PROGRAM  STATES.  THE  COMMAND  PROCESSOR  */ 

/*  INTERPRETS  THE  DEBUG  COMMAND  REQUESTED  AND  */ 

/*      TRANSFERS  CONTROL  TO  THE  APPROPRIATE  DEBUG  */ 

/*      PROCESSING  PROCEDURE.  */ 

/"*  */ 

/*  (2)  DEBUG  UTILITIES  */ 

/*  */ 

/*      THIS  SUBMODULE  CONTAINS  ALL  UTILITY  PROCEDURES  */ 

/•*  USED  BY  THE  DEBUGGER.  */ 

/*  */ 

/*  (3)  DEBUG  PROCESSING  PROCEDURES  */ 

/*  */ 

/*      THIS  SUBMODULE  CONTAINS  THE  ROUTINES  TO  PRO-  */ 

/*      CESS  THE  FOLLOWING  DEBUG  COMMANDS:  DISPLAY  (D)  */ 

/*      FILL  (F),  GO  (G),  GO  WITH  INTERUPTS  DISABLED  */ 

/*      (H),  MOVE  (M),  SET  (S)  AND  EXAMINE  REGISTERS  */ 

/*      (X).  THE  EXIT  POINTS  FROM  THE  DEBUGGER  ARE  */ 

/*      CONTAINED  WITHIN  THE  G  AND  H  ROUTINES.  */ 

/*  */" 

/*  (4)  DEBUG  PROCESSING  PROCEDURES  -  DISK  I/O  */ 

/*  */ 

/%  THIS  SUBMODULE  CONTAINS  THE  ROUTINES  TO  PRO-  */ 

/*  CESS  THE  FOLLOWING  DEBUG  COMMANDS:  MINI-DISK  */ 

/*       BINARY  INPUT  (I),  MINI-DISK  BINARY  OUTPUT  (0)  */ 

/*       AND  READ  HEX  FORMAT  ( R)  .  */ 

/*.  */ 

/*  */ 

/*   DEBUG  COMMANDS  *f 

/*  */ 

/*  THE  DEBUGGER  CAN  BE  ENTERED  AT  ANY  TIME  BY  PROGRAM  */ 

/*  EXECUTION  OF  A  RST  2  INSTRUCTION.  WHEN  THE  DEBUG-  */ 

/*  ER  IS  EXECUTING  THE  OPERATOR  IS  PROMPTED  WITH  A  ~.  */ 

/*  THE  "    INDICATES  TO  THE  OPERATOR  THAT  THE  DEBUGGER  */" 

/*  IS  READY  TO  PROCESS  A  DEBUG  COMMAND.  */ 

S*    CERTAIN  CONVENTIONS  APPLY  TO  ALL  DEBUG  COMMANDS.  */ 

/*  THE  COMMAND  DELIMITER  IS  EITHER  A  COMMA  OR  SPACE.  */" 

/"*  A  COMMA  IS  SHOWN  IN  THE  COMMAND  DESCRIPTIONS  WHICH  */ 

/*  FOLLOW.  ANY  TIME  A  NUMERIC  PARAMETER  IS  ENTERED,  */ 

/■*    IT  MAY  BE  ENTERED  IN  THE  STANDARD  HEXADECIMAL  FOR-  */ 

/*   MAT  OR  IN  DECIMAL  BY  PROCEEDING  THE  NUMBER  WITH  A  */ 

/*  PERIOD  (  . ) .  */ 

/•*  */ 

/%     .  */ 

S*   COMMAND  DESCRIPTIONS  */" 

/*  */ 

/*    1.  D  -  DISPLAY  *' 

/*  THE  D  COMMAND  DISPLAYS  THE  CONTENTS  OF  MEMORY  */ 

/*     IN  HEXADECIMAL  AND  .ASCII  FORMATS.  THE  FORMATS  */ 

/■*  OF  THE  COMMAND  ARE  *' 

/*  *' 

/■*  D  *' 

/*        D<  S>  %/ 


/* 


*/ 


/*  IF  THE  D  COMMAND  IS  USED,  MEMORY  IS  DISPLAYED  */ 
/*  FROM  THE  CURRENT  DISPLAY  ADDRESS  (INITIALLY  */ 
/*     4000H) ,  AND  CONTINUES  FOR  4  DISPLAY  LINES.       */ 
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s*  EACH  DISPLAY  LINE  CONTAINS  THE  DISPLAY  ADDRESS,  */' 

/*  THE  DATA  IN  HEXADECIMAL  FORMAT  AND  THE  DATA  IN  */ 

/*  ASCII  FORMAT.  A  PERIOD  (.)  IS  DISPLAYED  IF  THE  */ 

/*  ASCII  CHARACTER  IS  NON-DISPLAYABLE.  THE  D< S>  */ 

/*  COMMAND   PERFORMS  IN  THE  SAME  MANNER  AS  THE  D  */ 

/*  COMMAND  EXCEPT  THE  DISPLAY  ADDRESS  IS  SET  TO  */ 

/*  <S>.  */ 

/*  */ 

/*  2.  F  -  FILL  */ 

/*  THE  FILL  COMMAND  IS  USED  TO  INITIALIZE  AN  AREA  */ 

/*  OF  MEMORY  TO  A  CONSTANT  VALUE.  THE  FORMAT  OF  */ 

/*  THE  COMMAND  IS  */ 

/*  */ 

/*         F<S>,D>,<C>  */ 

/*  */ 

/*  WHERE  <S>  IS  THE  STARTING  ADDRESS,  < F>  IS  THE  */ 

/*  FINAL  ADDRESS  AND  < C>  IS  AN  8  BIT  VALUE.  */ 

/*  %/ 

/*  3.  G  -  GO  (PROGRAM  EXECUTE)  */ 

/-*  THE  G  COMMAND  TRANSFERS  CONTROL  FROM  THE  DE~  */ 

/*  BUGGER  TO  THE  SPECIFIED  PROGRAM  COUNTER  VALUE  */ 

/*  WITH  UP  TO  TWO  OPTIONAL,  BREAKPOINTS  SPECIFIED.  */ 

/%  THE  FORMS  OF  THE  COMMAND  ARE  */ 

/*  */ 

/*         G  */ 

/■*         G<  S>  */ 

/■*                     G<  S>  ,  <  B>  */ 

/*         G<  S>  ,  <  B>  ,  <  C>  */ 

/*         G,<B>  */ 

/*         G,<B>  ,<C>  */ 

/•*■  */■ 

/*  WHERE  <S>  IS  THE  VALUE  TO  WHICH  THE  PROGRAM  */ 

/*  COUNTER  IS  SET,  AND  < B>  AND  <C>  ARE  OPTIONAL  */" 

/*  BREAKPOINT  LOCATIONS.  IF  < S>  IS  NOT  SPECIFIED  */ 

/*  THE  CURRENT  VALUE  OF  THE  PROGRAM  COUNTER  IS  */ 

/*  USED.  IF  NO  BREAKPOINTS  ARE  SET.  THE  ONLY  WAY  */- 

/*  TO  RETURN  TO  THE  DEBUGGER  IS  THE  EXECUTION  OF  */ 

/*  A  RST  2  INSTRUCTION.  */ 

/*  */ 
/*  4.  H  -  GO  (PROGRAM  EXECUTE  WITH  INTERUPTS  DISABLED)*/ 

/*  THE  H  COMMAND  PERFORMS  THE  SAME  FUNCTIONS  AS  */ 

/*  G  COMMAND  EXCEPT  INTERUPTS  ARE  DISABLED  WHEN  */ 

/*  THE  MACHINE  AND  MTS  STATES  ARE  RESTORED.  THIS  */ 

/*  COMMAND  IS   ESSENTIAL  TO  DEBUGGING  THE  CRITICAL  */ 

/*  SECTIONS  OF  MTS  CODE.  THE  FORMS  OF  THE  COMMAND  */ 

/*  FOLLOW:  */ 

/*  */ 

/■*                     H  */" 

/*         H<  S>  */ 

/*         H<  S>  ,  <  B>  */ 

/*         H<  S>  ,  <  B>  ,  <  C>  */ 

/■*                     H,<B>  */ 

/*         H,<B>,<C>  */ 

/*  */ 

/*  WHERE  <C>,<B>  AND  <C>  ARE  THE  SAME  AS  THE  G  */" 

/*  COMMAND.  */ 

/*  *' 

/*   5.  I  -  MINI-DISK  BINARY  INPUT  */ 

/*  THE  I  COMMAND  INPUTS  312  BYTE  SECTORS  FROM  THE  */" 

/*  MINI-  DISK  INTO   MEMORY.  THE  FORMAT  OF  THE  COM-  */ 

/*  MAND  IS  */ 

/%  *' 

/*         KS>,<A>,<N>  *' 

/*  *' 

/*  WHERE  <S>  IS  THE  STARTING  MINI-DISK  SECTOR  HUM-  */ 

/*  BER,  <A>  IS  THE  ADDRESS  WHERE  THE  DATA  IS  INPUT  */ 

/*  AND  <N>  IS  THE  NUMBER  OF  512  BYTE  BLOCKS  TO  BE  */ 

/■*  INPUT.  *x 

/*  *' 

/*  6.  MOVE  -  MOVE  MEMORY  */ 

/*  THE  M  COMMAND  MOVES  ONE  AREA  OF  MEMORY  TO  AN-  */ 

/*  OTHER  AREA  OF  MEMORY.  THE  FORMAT  OF  THE  COMMAND  */ 

/*  IS  */ 
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'*  */- 

/*  M<  S>  ,  <  D>  ,  <  N>                               */ 

•*  */ 

/*  WHERE  <S>  IS  THE  START  ADDRESS,  < D>  IS  THE  DES-  */ 

/*  TINATION  ADDRESS  AND  <  N>  IS  THE  NUMBER  OF  BYTES  */ 

/*  TO  BE  MOVED.                                     */• 

/*  */ 

/*  7.  0  -  MINI-DISK  BINARY  OOTPUT  */ 

/*  THE  0  COMMAND  OUTPUTS  MEMORY  IN  512  BYTE  BLOCKS  */ 

/■*  TO  THE  MINI-DISK.  THE  FORMAT  OF  THE  COMMAND  IS   */" 

'*  */ 

/*  0<  S>  ,  <  A>  ,  <  N>                                 */ 

/*  */ 

/•*.  WHERE  <S>  IS  THE  STARTING  MINI-DISK  SECTOR  NUM-  */ 

/*■  BER,  <A>  IS  THE  ADDRESS  WHERE  THE  OUTPUT  DATA    •*■/ 

/*  IS  LOCATED  AND  < N>  IS  THE  NUMBER  OF  512  BYTE     */ 

/*  BLOCKS  TO  BE  OUTPUT.                             */ 

/*  */ 

/*  8.  R  -  READ  HEX  FORMAT  */ 

/*  THE  R  COMMAND  READS  DATA  FROM  THE  MINI-DISK  IN   */ 

/*  INTEL  HEX  FORMAT  AND  LOADS  MEMORY.  THE  FORM  OF   */ 

/*  THE  COMMAND  IS                                    */ 

/*  %/ 

/*  R<  N>                                        */ 

/■*  */ 

/*  THE  INPUT  FILE  MUST  HAVE  THE  NAME  .DISK<N>       */ 

/■*  WHERE  <N>  IS  A  NUMBER  FROM  0  TO  31.  THE  FILE     */ 

/*  MUST  ALSO  BE  CREATED  AND  FILLED  UNDER  THE  SYCOR  */ 

f%  OPERATING  SYSTEM.                                */ 

/*  */ 

/*   9.  S  -  SET  MEMORY  */• 

/*  THE  S  COMMAND  IS  USED  TO  EXAMINE  AND  OPTIONALLY  */ 

/*  MODIFY  MEMORY  ONE  BYTE  AT  A  TIME.  THE  FORMAT  OF  */ 

/-*  THE  COMMAND  IS                                  */ 

/*  */ 

/*  S<  A>                                       */ 

/■*■  */ 

/*  WHERE  <A>  IS  THE  FIRST  ADDRESS  TO  BE  EXAMINED.   */ 

/%  THE  DEBUGGER  OUTPUTS  THE  ADDDRESS  FOLLOWED  BY   */ 

/*  THE  CONTENTS  OF  MEMORY  AT  THAT  ADDRESS.  IF  MEM-  */ 

/*  ORY  MODIFICATION  IS  DESIRED,  A  VALUE  MAY  BE      */ 

/*  ENTERED  FOLLOWED  BY  A  CARRIAGE  RETURN  ( < CR> ) .    */ 

/*  IF  JUST  A  <CR>  IS  ENTERED  THE  NEXT  LOCATION  IS  */ 

/*  OPENED.  A  <->  CAUSES  THE  PREVIOUS  LOCATION  TO    */ 

/*  BE  OPENED.  A  </>  MAY  BE  ENTERED  TO  TERMINATE     */ 

/*  THE  SET  OPERATION.                               */" 

/*  */ 

/*    10.  X  -  EXAMINE  REGISTERS  */ 

/*  THE  X  COMMAND  IS  USED  TO  EXAMINE  AND  OPTIONALLY  */ 

/*  ALTER  REGISTER  CONTENTS.  THE  FORMS  OF  THE  COM-   */ 

/*  MAND  ARE                                        */ 

/*  */ 

/*  X                                           *' 

/*  X<  R>                                       */ 

/*  */• 

/*  WHERE  <R>  IS  ONE  OF  THE  FOLLOWING  REGISTER      */ 

/*  IDENTIFIERS:  C  (CARRY  BIT),  E  (EVEN  PARITY  BIT),*/ 

/*  I  (  INTERDIGIT  CARRY  BIT),  Z  (ZERO  BIT),  M  (MIN-  */ 

/*  US  -  SIGN  BIT),  A  (ACCUMULATOR),  B  ( BC  REGISTER  */ 

/*  PAIR),  D  (DE  REGISTER  PAIR),  H  ( HL  REGISTER     */ 

/*  PAIR),  S  (STACK  POINTER)  AND  P  (PROGRAM         */ 

/*  COUNTER)  .  ALL  REGISTER  CONTENTS  ARE  DISPLAYED    */ 

/*  WHEN  ONLY  X  IS  ENTERED.  IF  X< R>  IS  ENTERED,      */ 

/■*  THE  SPECIFIC  REGISTERS  CONTENTS  ARE  DISPLAYED    */ 

/*  AND  MAY  OPTIONALLY  BE  ALTERED  BY  ENTERING  A     */ 

/*  NUMERIC  VALUE  FOLLOWED  BY  A  CARRIAGE  RETURN.     */ 

/*  IF  ALTERATION  IS  NOT  DESIRED,  A  < CR>  WILL        */ 

/*  CLOSE  THE  REGISTER.                              */ 

/•*  */ 
z***^*************************************************/ 
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/******************   DEBUGGER  CONTROL   *****«»***********/ 


/**************    INTERMODULE   LINKAGE   MACROS    ************/ 

[  INT  DB2   DB3   DB4   M2B    IB   GB] 

CDB2:=2EC0H]     [ DB3: =3070H]    [M2B:=0600H] 

LIB:=3800H]     [DB4:=3460H]     [GB:=0] 

[MACRO   MTS    '[BEX  GB   +    1F06H] * ] 

[MACRO   MOVBUF    '[HEX  M2B   +    41H1'] 

[  MACRO   SVCSSTACK    '  [  HEX  GB   +    3C56H3 ' ] 

[MACRO    INTSSTACK    '[HEX    IB   +    03H]  '  ] 

[  MACRO   GO    '  [  HEX  DB3    +■    0DHI  '  ] 

[MACRO   HI    '[HEX  DB3   +    3B2H]  '  ] 

[MACRO   DISPLAY    '[HEX  DB3   +    2BAH]  '  ] 

[MACRO   FILL    '[HEX  DB3    +     1F4H]'] 

[ MACRO   MOVE    '  [  HEX  DB3   +    34EH] ' ] 

[ MACRO   SET    *  [  HEX  DB3   +    23CH1 ' ] 

[MACRO   READ    '[HEX  DB4    +       187H]  '  ] 

[ MACRO   X    '  [  HEX  DB3      +    1 1CH] ' ] 

[MACRO   CONVERTSWRITE    '[HEX  DB2   +    21H]'] 

[  MACRO   CRLF    '  [  HEX  DB2   +    03H1  ' ] 

[M4CR0   SAVE    '[HEX  GB   +    1F03H]  '  ] 

[ MACRO   LOCK    *  [  HEX  GB   +    3C54H]  ' ] 

[MACRO    INPUT    '[HEX  DB4   +    212H]'] 

[MACRO   OUTPUT    '[HEX   DB4    +    21AH]*] 


/*****#********   GENERAL   PURPOSE   MACROS   ****************/ 


[ INT  TOP    USERSTOP    I TOP    STOP] 

[TOP:=51]     [USERSTOP: =341    CITOP:=30I    [STOF:=40] 

[MACRO   TERMINALSSTATUS    'C=8;    CALL    [MTS]'] 

[MACRO   READSTERMINAL    *C  =  9;    CALL    [MTS]'] 

[MACRO   WRITESTERMINAL   LTR    'C=10;    E=  [  LTR] ;    CALL 

[MACRO   TRUE    '0FFH'] 

[MACRO   PROMPT    '7EH'] 

[MACRO   ERRORSCHAR    '3FH'] 


[MTS]  '] 


/IK************:*:  MODULE  DECLARATIONS  ****************#**/' 

DECLARE  ( DEBUGSENTRY, DEBUGSCMD)  LABEL; 
DECLARE  DEBUGSSTACK( 5 1 )  BYTE  INITIAL  (0); 
DECLARE  SAVSINTSSTACK  (30)  BYTE  INITIAL  (0); 
DECLARE  SAVSSSSSTACK  (40)  BYTE  INITIAL  (0); 
DECLARE  TRAPSLOC  (6)  BYTE  INITIAL  (0,0,0,0,0,0); 
DECLARE  I  BYTE  INITIAL  (0); 
DECLARE  SAVHL  DATA  (0,0); 
DECLARE  SAVDE  DATA  (0,0); 
DECLARE  SAVSSAVE  DATA  (0,0,0); 

ERROR:  PROCEDURE; 

/*  THIS  ROUTINE  IS  EXECUTED  FOR  ANY  DEBUG  ERROR  */ 

/*  CONDITIONS.  THE  STACK  POINTER  VALUE  IS  RESET  */ 

/*  BECAUSE  OF  ITS  UNKNOWN  STATE  AT  THE  TIME  THIS  */ 

/*  ROUTINE  IS  CALLED.  AN  ERROR  PROMPT  IS  DISPLAYED  */ 

/*  AT  THE  TERMINAL.  PROGRAM  CONTROL  IS  PASSED  TO  */ 

/*  DEBUGSCMD  FOR  FURTHER  COMMAND  PROCESSING.  */ 

/*  CALLED  BY:  DEBUGSCMD, GETSP ARAM, GO, X, FILL, DISPLAY,  */ 

/*■  SET,  MOVE,  INIT,CHECKSRDSPNTR,READ,  */ 

/*  DISKS  10  */ 

SP= . DEBUGSSTACK( [ USERSTOP] ) ; 
[WRITESTERMINAL  '[ERRORSCHAR]']; 
GOTO  DEBUGSCMD; 
END  ERROR; 

DEBUGSENTRY: 

/*  THIS  ROUTINE  IS  THE  ENTRY  POINT  OF  THE  DEBUGGER.    *• 
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/*   PROGRAM  COTTTROL    IS    PASSED   TO   THIS    ROUTINE   WTTF.TT   A  *s 

/■*   RST  2    INSTRUCTION    IS   EXECUTED.    THE   MACHINE   STATE  */ 

/*   BEFORE   THE   RST    INSTRUCTION   WAS   EXECUTED    IS   SAVED  */ 

/*    FOLLOWED   BY  BREAKPOINT  PROCESSING.  */ 

/^  5fC  C#C  2f^  5fC5fC  ^fC  JfCift  if*  5fC  ^ft  5fC  ^fC  5fC  ifC  ifC  ^fC^fC  ^fC  5fC  JfC  ^fC^fC  ifC  ^fC  ?ft  ifC  ^C  ^^t<  vs^C^C^fC^C^^fC^^s^C^^C^^^C^  ^C  ^}Z  2£  5ft  3f  ^  SfwfC  / 

DISABLE; 

/*   SAVE    HL,    DE   REG   PAIRS    */ 
SAVHL=HL;    HL==DE;    SAVDE=HL; 
DE= STACK;       /*   STORE   OLD   PC    IN   DE   */ 
STACK=PSW; 

HL=2   +   SP;    /*   STORE   OLD   SP    IN   HL   */ 
DE=DE-1;    S*   PC    IS   DECREMENTED   DUE   TO   RST    INST.    */ 
PS  V=  STACK; 

SP= . DEBUG$STACK(  [  TOP] ) ; 

/•*    START   PUSHING   MACHINE   STATE    ONTO   DEBUG3STACK  */ 
STACK=DE;    STACK=HL; 

/*   RETRIEVE  HL   AND   STACK  THEN   DE   AND   STACK  */ 
HL=SAVHL; 

STACK=HL;       HL=SAVDE;    STACK=HL;    STACK=BC;    STACK=PSW; 
/*   STORE   FLAG   BITS    OF   OLD   PSW    IN   L   REG   */ 
DE=  STACK;    L=E; 
STACK=DE; 

/*   DETERMINE   CARRY,    PARITY,    AC,    ZERO,    AND   SIGN   BIT  */ 
/"*    BIT   AND    STORE    IN    DEBUGSSTACK(  23)  ~DEBUGSSSTACK(  18)     */ 
B=0;    C=0; 

IF    <A=>L)    CY  THEN   B=  1  ;    A=>A; 
IF    (A=>A)    CY  THEN   C=  1 ; 
STACK=  BC ; 
B=0;    C=0;    A=>A; 
IF    (A=>A)    CY  THEN    B=  1  ; 
A=>  A; 

IF    (A=>A)    CY  THEN   C=  1 ; 
STACK=BC;    B=0; 
IF    (A=>A)    CY  THEN   B=  1 ; 
STACK=BC;       SP=SP+1; 
/*   SAVE   AWAY  SYSTEM  STATUS   */ 

HL=CSAVE] ;       /*   GET  STK  PTR  WHICH  WAS   STORED    IN   SAVE   */ 
/*    DURING   SERVICE   CALL  */ 

SAVSSAVE(0)  =  (A=M(HL)  )  ;    HL=HL+1; 
SAVSSAVEC  1)=(  A=M(HL)  )  ;    HL=HL+1; 
SAVSSAVEC 2)  =  (  A=  M(  HL) )  ; 
/*   EXECUTE   AS   MTS   CODE   */ 
HL=[LOCKJ;    M(  HL)  =  (  A=M(  HL)    \01H); 
BC=CHEX    ITOP] ;       /*    NUMBER  OF   BYTES   TO   SAVE   %/ 
DE=  [  INTSSTACK] ;    HL= . SAVS INTSSTACK; 
CALL   CMOVBUF]  ; 

BC=CHEX  STOP] ;    /*    NUMBER  OF   BYTES   TO   SAVE   */ 
DE=  [  SVCSSTACKJ  ;    HL= . SAVSSSSSTACK; 
CALL    EMOVBUF]  ; 

I  =  (A=1);       /*    INITIALIZE    1=1    */ 

DO   BY    I=(A=I+3)    WHILE    (A=I~7)     !ZERO; 

HL= . TRAPSLOC ;    B=0;    C=  < A=  I )  ;     HL=HL+BC; 
IF    (A=M(HL);    A::0)     rZERO   N 

(HL=HL+1;    A=M(HL);    A::0)     'ZERO   THEN 
DO;    /*    PC    IS    NON   0    */ 

HL= . TRAPSLOC ;    B=0;    C=(A=I-1); 
/*    DE   POINTS    TO    ADDR  CONTAINING   OP    CODE    */ 
HL=HL+BC;     DE=HL; 

C=(A=I);     HL= .TRAPSLOC;    HL=HL+BC; 
/*    HL   POINTS    TO   ADDR    IN    WHICH   TO   RESTORE   *S 
/*    OP    CODE  */ 

C=M(HL);    HL=HL+1;       B=M(HL); 
M(BC)  =  (A=M(DE))  ; 
END; 
END; 
ENABLE; 

I=(A=1);       /*    INITIAL    I    VALUE    IS    1    */ 
DO   BY    I  =  (A=I+3)    WHILE    <A=I-7)     TZERO; 
HL=  .TRAPSLOC; 
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/*   OFFSET    INTO   TRAPSLOC   LOADED    IN   C   */ 

B=0;       C=(A=I); 

HL=HL+BC;       DE=HL; 

HL= . DEBUGSSTACKC [ HEX  TOP-2] ) ; 

IF    (B=M(HL);    A=M(DE);    HL=HL+1;    DE=DE+l! 


DO; 


(B=M(HL) 

STACK=DE 
A=*#' 

DE=  STACK 


A: :B)    ZERO   8 


A=M(DE);    A::B)    ZERO   THEN 


[WRITESTERMINAL    'A']; 
L=l; 


END; 


END; 


CALL    LCONVERTSWRITE] ; 


/•*    ZERO   OUT   TRAPSLOC    */"      A=0; 

TRAPSLOC(0)=A;    TRAP$LOC( 1) = A;    TRAPSLOC( 2) = A; 

TRAF»L0C(3)=A;    TRAP»LOC(  4)  =  A;    TRAP$LOC(  5)  =  A; 

DEBUGSCMD: 

.'      *^  *^  *^  *&  *P  *P  *T*  »T*  *f*  ^P  'T*  *T*  *^  *T»  ^*  ^^  *P^S  'N  *^  *^  *^  *P  *^  ?K  JP  5P?P  »^  .,>  #J^  <p  J^  ?fs  t^  7(Z  ffZ  rfc  ff\  *fZ  ifi  rfZ  *f*  3js  *f»  7f\  rfZ  Jf*  *^  *f»  3^  3fl  ?fC  *fC  ,r 

/*    THIS   ROUTINE    IS   THE   DEBUG  COMMAND   PROCESSOR.    THE  */ 

/*    COMMAND    PROCESSOR    ISSUES    A    CARRIAGE    RETURN    AND  */ 

/*   LINE   FEED   FOLLOWED   BY  THE   DEBUG   PROMPT  CHARACTER.  */ 

/*    WHEN   A   VALID    COMMAND    HAS    BEEN    ENTERED,    THE   APPRO-  */ 

/*   PRIATE   PROCESSING   ROUTINE    IS   CALLED.  */ 

CALL   ICRLF] ; 

[WRITESTERMINAL    '[PROMPT]']; 
REPEAT; 

[TERMINALSSTATUSI ; 
UNTIL    (A::  [TRUE])    ZERO; 
CREADSTERMINAL]  ; 
/*    IF    CHARACTER  <     'A'    OR  >     'X' 
/*    GET  ANOTHER  COMMAND 
IF    (C='A';    A::C)    MINUS   \    ( C= * Y' 

GOTO    DEBUGSCMD; 


IGNORE    AND    */ 

;    A: :C)    PLUS    THEN 


L=(A=A-(H=*A'))  ;     H=0; 
DO   CASE   HL; 

CALL   ERROR; 

CALL   ERROR; 

CALL   ERROR; 

CALL    [DISPLAY!  ; 

CALL   ERROR; 

CALL    [FILL] ; 

CALL    [GO] ; 

CALL    [HI]  ; 

CALL    [  INPUT] ; 

CALL    ERROR; 

CALL   ERROR; 

CALL   ERROR; 

CALL    [ MOVE] ; 

CALL   ERROR; 

CALL    [ OUTPUT] ; 

CALL   ERROR; 

CALL    ERROR; 

CALL    [ READ] ; 

CALL    [ SET] ; 

CALL   ERROR; 

CALL   ERROR; 

CALL    ERROR; 

CALL   ERROR; 

CALL    [  X]  ; 
END; 
GOTO   DEBUGSCMD; 


/*    A  *■/ 

/*    B  */ 

/#    C  */ 

/*    D  DISPLAY   */- 

/*    E  */ 

/"*■    F  FILL    */ 

/*    G  GOTO    */ 

/*    H  -    GOTO    W/'O    INTERRUPTS    */ 

/*    I  MINI-DISK  BINARY    INPUT  */ 

/*    j  */ 

/*    K  */ 

/*    L  *' 

/*    M  MOVE   */ 

/*    N  */ 

/"*    0  MINI-DISK  BINARY  OUTPUT   */ 

/*    P  */ 

/*    Q  %./ 

/*    R  READ   HEX  FORMAT   */ 

/*    S  SET   MEMORY  */ 

/*   T  */ 

/*    U  */ 

/*    V  */ 

/*    W  */ 

/*    X  EXAMINE    REGISTERS    */ 
/%    CASE    x/ 


EOF 


z'****************    DEBUG    UTILITIES    ********************/ 
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/************    INTERMODULE   LINKAGE  MACROS   *************/ 


[ INT   DB13     [DB1:=2BA0H] 
[MACRO   MTS    * 1F06H'] 
[MACRO   ERROR    '[REX  DB1   + 


13H]  '] 


/************    GENERAL    PURPOSE   MACROS    *****************,' 


[MACRO   TERMINALSSTATUS    'C=8;    CALL    [MTS]' 

[MACRO   READSTERMINAL    '0=9;    CALL    [MTS]'] 

[MACRO   WRITESTERMINAL   LTR    'C=10;    E=  [  LTR] 

[MACRO   TRUE    '0FFH'] 

[MACRO   FALSE    '00H'] 

[MACRO  CR   '0DH'] 

[MACRO   LF    '0AH'] 

[MACRO   SLASH    '2FH'] 

[MACRO   COMMA    '2CH'] 

[MACRO   SPACE    '20H'] 

[MACRO   PERIOD    '2EH'] 

[MACRO   COLON    '3AH'] 

[MACRO   DASH    '2DH'] 

[MACRO   WAITSREAD    'REPEAT; 

[TERMINALS STATUS] ; 
UNTIL    (A:: [TRUE])    ZERO; 
[ READ8TERMINAL]  '  ] 


CALL   [MTS]  '] 


/************   MODULE   DECLARATIONS   **#******#******#***/ 


DECLARE    I    BYTE    INITIAL    (0); 
CRLF:    PROCEDURE; 

/      5ft  ?ft  5f»  5ft  3P  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5^  5ft  5ft  Jft  ^^5ft  -P  -ft  5ft  »^  -ft  5^  5^  5ft  5ft  «fT  5ft  5^  ^t  5^  5ft  Jf*  5ft  5ft  5ft  5ft  5^  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5f^  5ft  /^ 

/*   THIS    ROUTINE   OUTPUTS   A   CARRIAGE   RETURN   AND   LINE        */ 
/*    FEED   TO   THE   TERMINAL.  *• 

/*   CALLED   BY:    DEBUGSCMD, DISPLAY  */ 

[WRITESTERMINAL  '  [  CR]  '  ]  ; 
[WRITESTERMINAL  '[LF]']; 
END   CRLF; 

BLANK:    PROCEDURE; 

/  5ft  3ft  5ft  5ft  5ft  5fC  5^  5ft  ?ft  5ft  5ft  5ft  5ft  5ft  5ft  5Jt  5ft  5fT5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5ft  5jt  5ft  5ft  5ft  5ft  5ft  5ft  5ft  f 

/*   THIS    ROUTINE   DISPLAYS   A  SPACE   AT  THE   TERMINAL.  */ 

/*    CALLED    BY:    X, SET, DISPLAY  */ 

/    5ft  5f*  5ft  <f*  5ft  5ft  5ft  5ft  5ft  Jf.  5ft  5ft  5ft  *ft  5ft  -rt  5ft5ft  5ft  -ft  5ft  5ft  5jt  5fs  »^s  5fs  Jft  5f*  «K  -f»  *f»  ^f»  *f«  *f»  »f>  Jf*  *r»  ^*  ^^  ^^  »r*  *f>  ^^  ^>  *F>  ^R  *f*  ^^  ^*  ^*  ^^  ^^  *r*  / 

A=  [  SPACE] ; 

[WRITESTERMINAL    'A']; 
END   BLANK; 

CONVERTSWRITE:    PROCEDURE; 

*/ 
*/ 
*/ 
#/ 
*/ 
*/ 
#/ 
*/ 
*/ 


/*   CONVERT  AND   WRITE   BYTES   TO   THE   TERMINAL. 
/*    INPUT:    DE   -    ADDRESS    OF   FIRST  BYTE   TO   BE   WRITTEN 
WRITE    FLAG 


/■■* 
/* 
/-* 
/* 
/■* 
/* 


L   - 


ONLY  WRITE    1    BYTE,    DE=DE+1 
WRITE   THIS   BYTE   AND   PREVIOUS, 
DE=DE-2 

WRITE   THIS    BYTE   AND   NEXT,    DE=DE+2 
ONLY  WRITE   LOWER  NIBBLE,    DE=DE+1 
/*   OUTPUT:     DE   -    MODIFIED   AS    DESCRIBED   ABOVE 
/•*   CALLED   BY:    DEBUG3ENTRY,  X,  SET,  DISPLAY 

H=0;     BC=HL; 

DO    CASE    HL;  /"*    SET   CHARACTER   COUNT   */ 

I=(A=2);         /*    DATA  TYPE   0   */ 

I=( A=4) ;  /*  1    *' 

I=( A=4) ;         /*  2    */ 

I=(  A=  1)  ;  /*■  3    */ 

END;    HL=BC; 
A=M(DE)  ; 
C=A; 
IF    ( A=L;     A: :3) 


rZERO    THEN 


175 


DO;    /*    IF   NOT  DATA  TYPE   3   -    USE   MSN  */" 
A=C; 

A=>>A;    A=>>A;    A=>>A;    A=>>A; 
C=A; 
END; 
REPEAT; 

A=C   8   0FH; 
/"*    CONVERT  THE   CONTENTS    OF    A  */ 

/•*■    (ASSUMED    IN   THE   RANGE   0   -    15)         */ 
/*   TO   A  PRINTABLE   HEX  CHARACTER  */ 

IF    (A: : 10)    MINUS   THEN 

A=A  +   30H      /*   A=A-'0'    */ 
ELSE 

A=A  -    10,    +   41H;       /*   A=A-10,+'A'    */ 
STACK=HL;    STACK=DE; 

[ WRITESTERMINAL    'A'];       /-*    WRITE    CHARACTER  */" 
DE= STACK;    HL= STACK; 
IF    (A=L;    A::i)    ZERO  THEN 

DO;       /*   DATA   TYPE    1    -    DECREMENT  ADDR    IF      */ 
/*   MSN   3   LSN   OUTPUT  */ 

I=(A=I-1);    A=>>A; 
IF    !CY  THEN 
DE=DE-1; 
END 
ELSE 

DO;       /*    DATA   TYPES   0,2    OR  3    -    INCR  ADDR    IF   */- 
/*   MSN   3   LSN   OUTPUT  */ 

I=(A=I-1);     A=>>A; 
IF    !CY  THEN 
DE=DE+1; 
END; 
A=M(DE)  ; 
IF    !CY  THEN 

DO;    /*    IF    MSB   TO    BE    WRITTEN,    MOVE   TO   LSB   */* 
A=>>A;    A=>>A;    A=>>A;    A=>>A; 
END; 
C=A; 
UNTIL   (A=I;    A::0)    ZERO; 
END   CONVERTSWRITE; 

GETSPARAM:    PROCEDURE; 

r    *F*  *^  *P"  ""&■  *r*  *r«  3p  *r»  *fC  *r»  5)s  ^^  5K  *|s  -^  «■,"■*  *(C  »K  *K  *p  *p  *f»  ^r*  »f»  ^  *P  ?p  ?^  TjZ  7JZ  .?»  ss  *^  *jZ  »f»  ^P  3f»  2p  *fZ  »J*  *R  3p  *T*  *f*  "f*  *f*  «t»  *ff  -r»  Sp  3P  *^  *fC  f 

s*  THIS  ROUTINE  READS  AND  RETURNS  A  HEX  OR  DECIMAL  */ 
/*    PARAMETER    IN   REGISTER  HL.    A   PARAMETER  HAS    BEEN  «• 

/*  ENTERED  IF  REGISTER  A  IS  ZERO,  OTHERWISE  REGISTER  */ 
/*  A  IS  NONZERO  AND  CONTAINS  THE  NEXT  TO  LAST  CHAR-  */ 
S*  ACTER  ENTERED.  IF  THE  LAST  CHARACTER  ENTERED  IS  A*/ 
/*   CR  THEN   CY=1,    OTHERWISE   CY=0.  */ 

/*    INPUT:    NONE  */ 

/-*  OUTPUT:  CY  -  INDICATES  WHETHER  LAST  CHAR  WAS  A  CR  */ 
/*  0   -    NOT   A   CR  */ 

/*  1    -    CR  ENTERED  */ 

/*  A   -    INDICATES    VALID   PARAMATER  ENTRY  */ 

/*  0    -    VALID   PARAM   ENTERED  */ 

/*  NON   0   -   NEXT  TO   LAST   CHAR  ENTERED  */ 

/*  HL   -    VALUE    OF    VALID    PARAMETER  *s 

/*   CALLED   BY:    GO, X, FILL, SET, DISPLAY, MOVE, READ,  */ 

/*  DISKSIO  */ 

/  Jp> *f» ^fC jp. 5fs ^fl ^JC ^ tfZ ifC ^fJ 5fs 7f> if> ^f! if* JfiifC Jft  Jf* )f* ^i^fZ 5fs*f* 2f* *P *r» 3p  W *t**»^ 'f* ■,^*P^r**r* 5^5p 5p *n 5n ^*^ *f**f* *f**P*r» 3p*P*n r 

C  MACRO   NOTSDELIMETER    * ( A: : C COMMA] )     TZERO   8 

(A::  [SPACE])     !ZERO   8    (A::CCR])     TZERO    '  ] 
DECLARE    ( VALIDSPARAM.HEXSFLAG)    BYTE    INITIAL    (0,0); 
VALID»PARAM=(  A=0)  ;       /*    INITIALIZE   FLAGS    */ 
HEXSFLAG=  (  A=  [  TRUE] ) ; 
[WAITSREAD]  ; 
VALIDSPARAM=A; 

IF    (A::  [SLASH])    ZERO   \    (A::  [DASH])    ZERO    THEN 
DO;    /*   STRIP    OFF    FIRST   POUND   SIGN   OR  MINUS    SIGN   */ 

[WAITSREAD]  ; 
END; 
IF    (A: :[  PERIOD])    ZERO   THEN 

DO;       s*   SET-UP    FOR   DECIMAL   PARAMETER   */ 
VALID$PARAM=A; 
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HEXSFLAG= ( A= [ FALSE] ) ; 
[WAITSREAD] ; 
END; 
HL=0; 
DO   WHILE    [NOTSDELIMETER] ; 

/•*•    IF    (CHAR  >    9   AND   CHAR  <     'A')    OR  CHAR  <     '0'    */ 
/*   OR  CHAR  >     'F'    -    CALL   ERROR  #/ 

IF    (IF    (A:: [COLON])    PLUS   8    (A::41H)    MINUS   THEN 
CY=1    ELSE  CY=0) 
CY  N    (A::30H)    MINUS   \    (A::47H)    PLUS   THEN 
CALL   I  ERROR] ; 
/*   CONVERT   ASCII    CHAR  TO   HEX  DIGIT  */ 

s*    IF   DECIMAL   PROCESSING  AND   CHAR  >    9    -    CALL   ERROR  */ 
A=A-30H;       /*    A=A-'0'    #/ 
IF    (A: : 10)    PLUS   THEN 
DO; 

IF    (C=A;    A=HEXSFLAG;    A:: [FALSE];    A=C)    ZERO   THEN 

CALL    [ ERROR] ; 
A=A-7; 
END; 
IF    (C=A;    A=HEXSFLAG;    A::[TRUE];    A=C)    ZERO   THEN 
DO;       /*   HEX  CONVERSION   */ 

HL=HL+HL,+HL,+HL,+HL;       /*   HL=HL*16    */ 
A=A\L;    L=A; 
END 
ELSE 

DO;       /*   DECIMAL   CONVERSION   */ 

DE=(  HL=HL+HL)  ;       /"*    DE=HL*2    */ 
HL=HL+HL,+HL,+DE;       /*    HL=HL*8   +    HL*2   */ 
D=0;    E=A; 
HL=HL+DE; 
END; 
STACK=HL; 

VAL I DSPARAM=  (  A=  0 )  ; 
[WAITSREAD]  ; 
HL=  STACK; 
END;       S*   DO    WHILE    */ 
IF    (A::[CR])    ZERO   THEN 

CY=1 
ELSE 

CY=0; 
A=  VAL  I  DSP  ARAM; 
END   GETSPARAM; 


EOF 


r     *P *v* *& ^S ^* *^ *P *^ *P 'f*  *f*  *o  *f* *o  *o  *T*  **  *o  *^  *f*  *f*  *fc t^ 'O *r>  *^  *o  *?»  *o  3P^p *^  *P  *^  -f*  rfc *^ *^ "T*  *?»  *f* ^p *P  ^5 *P  ?N *^5p?^3^ ?P*f»  JpC/p  ^ 

/*#**********   DEBUG   PROCESS ING   PROCEDURES   *****#*******/ 


/************    INTERMODULE    LINKAGE    MACROS    ******#*******/" 

[  INT  DB1    DB2    M2B    IB  GBJ     [DBl:=2BA0H]     [DB2:=2EC0H] 

[ M2B : =  0600H]     [ IB :  =  3800H]     [ GB : = 0000H] 
[MACRO   MTS    '[HEX  GB   +    1F06H]  '  ] 
[  MACRO   MOVBUF    ' C HEX  M2B   +    4 1H] ' ] 
[MACRO    INTSSTACK    '[HEX    IB   +    03H]  '  ] 
[  MACRO   SVCSSTACK    '  [  HEX  GB   +    3C56H] ' ] 
[MACRO   SAVSSSSSTACK    '[HEX  DB1    +    29Afl]  *  ] 
[MACRO   SAVS INTSSTACK    '[HEX  DB1    +    27CH]  '  ] 
[MACRO   GETSPARAM    '[HEX   DB2   +    0BBH]  '  ] 
[MACRO    ERROR    '[HEX  DB1    +    13H]  *  ] 
[MACRO   DEBUGSSTACK      '[HEX  DB1    +    249  H]  '  ] 
[ INT   DEBUGSSTK]     [ DEBUGSSTK: =2DE9H] 
[MACRO   TRAPSLOC    '[HEX  DB1    +    2C2H]  '  ] 
[MACRO   BLANK    '[HEX  DB2   +    15H]  '  ] 
[MACRO   CONVERTSWRITE    '[HEX  DB2    +    21H]'] 
[  MACRO   CRLF    •  [  HEX  DB2   +    03H] ' ] 
[MACRO   SAVE    '[HEX  GB   +    1F03H]  '  ] 
[MACRO   SAVSSAVE    '[HEX  DB1    +    0DH1  '  ] 
[MACRO   LOCK    '[HEX  GB   +    3C54H]  '  1 
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/*************   GENERAL   PURPOSE   MACROS   ****:m:***********/ 

[ INT   TOP    USERSTOP    I TOP    STOP] 

[TOP:=51]     CUSERSTOP:=34]    CITOP:=30]    [STOP:=40] 

[MACRO   READSTERMINAL    *C=9;    CALL    CMTS]'] 

[MACRO   WRITESTERMINAL   LTR    *C=10;    E= [ LTR] ;    CALL    [MTS]'] 

[MACRO   TRUE    '0FFH'] 

[MACRO   FALSE    '00H'] 

[MACRO   CR    '0DH'] 

/-*************   MODULE   DECLARATIONS   ********************/ 

DECLARE    (SAVCY, I ,  J.EXIT, HFLAG)    BYTE    INITIAL    (0,0,0,0,0); 
DECLARE   SAVHL    DATA    (0,0); 
DECLARE   SAVDE   DATA   (0,0); 

GO:    PROCEDURE; 

/*   THIS    ROUTINE   PROCESSES   THE   G   COMMAND   AND    IS   THE  */ 

/*    EXIT   POINT   FROM  THE   DEBUGGER.  */ 

/*   CALLED   BY:    DEBUGSCMD.HI  */ 

SAVCY=(A=0);        I=(A=0); 
REPEAT; 

CALL    [ GETSPARAM] ; 
D=A;    /*   SAVE   ACCUMULATER  */ 
IF    CY  THEN   SAVCY=  (  A= 1 )  ; 
IF    (A=I;    A::0)    ZERO   THEN 
DO;    /*    RETURN    WITH   FIRST  PARAM  */ 
IF    (A=D;    A::0)    ZERO   THEN 
DO;    /*   STORE   START  POINT   */ 

DE=HL;    H=0;    L= [ HEX  TOP- 1 ] ; 
BC= [ DEBUGSSTACK]  ;    HL=  HL+BC ; 
M(HL)  =  (A=D);    HL=HL-1; 
M(HL)=(A=E)  ; 
END; 
END 
ELSE 

IF    ( A= I ;    A: : 1 )    ZERO  \    ( A= I ;    A: : 4)    ZERO   THEN 
/*    BREAK  POINTS    HAVE    BEEN    SPECIFIED   */ 
DO; 

HL=  =  DE;    /*    DE   NOW  CONTAINS    BREAK  PT.    TO   STORE   */" 
HL=[TRAPSLOC] ; 
B=0;    C=(A=I); 

/*    STORE   LO   BYTE   OF    BK   PT   */ 
HL=  HL+BC ;    M(  HL)  =  (  A=  E)  ; 
/*   STORE   HI    BYTE   OF    BK  PT  */ 
HL=HL+1;     M(HL)  =  (A=D); 
/*   STORE   OP   CODE   */ 
HL=HL-1,-1;    M(HL)  =  (A=M(DE))  ; 
M(DE)=(A=0D7H)  ; 
I  =  (A=I  +  2);    /*    ADJUST    INDEX  */ 
END 
ELSE 
IF    (A=D;     A::0)     ?ZERO   THEN   CALL    [ERROR]; 

I=(A=I+1);    /*   ADJUST    INDEX  */ 
UNTIL    (A=SAVCY;    A::l)    ZERO; 

/"*   THE   FLAG  BYTE   OF    THE    PSW    IS    UPDATED   WITH   CHANGES  */ 

/*   WHICH   MAY  HAVE   BEEN   MADE   WHILE    IN   THE   DEBUGGER  */ 

/"*   FLAG   VALUES    ARE   STORED    INTO   THE   BC    AND   DE   REGIS-  */ 

/*   TER  PAIRS.       THE   PSW  FLAG   BYTE    IS   STORED    IN   THE  */ 

/*    H   REGISTER   PRIOR  TO    UPDATING    ITS    VALUES  */ 

/  «f*  *T»*t>  *r»  if*  *t»  *F  *t*  *f*  *r»  3p  *p  *t*  *r*  *r»  3P  Sp  *t*  !p  *f»  !p  *p  *P  *n  *r*  *P  *f*  *T*  if*  *r>  *f*  *P  *P  *N  *P  *K  *f»3f>  Jf»  2f*  *f%  ^*^*f**p  *^\  «p  »f»  ^»P  *R^*j\  / 

DISABLE; 

/*   RESTORE  SYSTEM  STATUS   */ 

BC=[HEX    ITOP] ;    /*   #   OF    BYTES   TO   MOVE   */ 
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DE=[SAVSINT$STACK]  ;    /*    START  ADDR  */ 

HL=[  INT8STACK]  ;    /*   DEST   ADDR  */ 

CALL    C  MOVBUF] ; 

BC=[HEX  STOP] ; 

DE=  [  SAVSSSSSTACK!  ; 

HL= [ SVCSSTACKD ; 

CALL   CMOVBUT] ; 

HL= [ SAVE] ;       DE= [ SAVSSAVE] ; 

M(RL)  =  (  A=M(DE)  )  ;       HL=RL+1;       DE=DE+1; 

M(  HL)  =  (  A=  M<  DE)  )  ;       HL=  HL+  1 ;       DE=  DE+  1 ; 

/*   STK  PTR  SAVED    IN   SVC   CALL   RESTORED   */ 

M(HL)  =  (A=M(DE))  ; 

/*   RESET  LOCK  BYTE   */ 

HL=[LOCK];    M(  HL)  =  (  A=M(  HL)    8   0FEH)  ; 
S*   ADJUST  STACK  POINTER  */ 
SP=CHEX  DEBUGSSTK  +    USERSTOP] ; 
BC= STACK;       DE= STACK;    HL= STACK: 
A=>>C;       A=<H;       H=A;         /*   LOAD   SIGN   BIT  */ 
A=>>B;       A=<H;       /*    LOAD   ZERO   BIT  */ 
A=<<A;       H=A;       /*   ADJUST   UNUSED   BIT   *• 
A=>>E;       A=<H;       /*    LOAD   AC   BIT   */ 
A=<<A;       H=A;       /%    ADJUST   UNUSED    BIT   */ 
A=>>D;       A=<H;         /*   LOAD   PARITY  BIT   */ 
A=<<A;       H=A;       S*    ADJUST   UNUSED   BIT   */ 
A=>>L;       A=<H;    B=A;       /*   LOAD   CARRY  BIT,    STORE   UPDATED   *• 

/*   FLAG   BYTE   OF    PSV    IN   E.    */ 
STACK=BC;       SP=SP+1; 

/"*    POP      MACHINE   STATE    AND   OLD   SP    AND    PC  */ 


PSW=  STACK; 


HL=  DE ; 
SAVHL=HL; 
/*   GET  SP   AND   PC   */ 


BC= STACK;       DE= STACK; 

SAVDE=HL;       HL= STACK; 

HL=  STACK;       DE= STACK; 

SP=HL;       STACK=DE; 

HL=SAVDE;       DE=HL;       HL=SAVHL; 

STACK=  PSW; 

IF    (A=HFLAG;    A:: [FALSE])    ZERO   THEN   /*   HFLAG  NOT  SET  */ 

ENABLE; 
HFLAG= ( A= [ FALSE] ) ; 

PSW=  STACK;     RETURN;    /*POP    PC    OFF    STACK  */ 
END   GO; 

SETSUP:    PROCEDURE; 

r   *r*  *F*  3p  *r*  3p  «F  *p  *r*  *p  "^  *F  *^  ^*  *r*  *n  ^  *f»  *f»  3p  *r*  *K  *f«  *f»  f*  *?*  "r*  *t*  *f*  *p  *>  ^r*  3n  *f*  *r»  *f*  »p  3p  if!  !(S  ?f»  *f!  ^r*  3|C  ^K  !p  Sp  5f»  Jo  Sf!  *f»  5fC  Jfl  *ft  ?fC  / 

/*  ROUTINE  TO  LOAD  REGISTER  DE  WITH  ADDRESS  OF  BYTE  */ 
/*  OR  BYTES  TO  BE  DISPLAYED  AND  REGISTER  L  TO  TYPE  OF  */ 
/%    DISPLAY.  */ 

/*   CALLED   BY:    X  */ 

BC=BC+1;     E=(A=M(BO) 

BC=BC+1;    D=(A=M(BO) 

BC=BC+1;    L=(A=M(BO) 

BC=BC+1;       /*   POSITION   POINTER  TO   NEXT  ENTRY  */ 

END   SETSUP; 

X:    PROCEDURE; 

/   tfc 3o ZfZ  ?f» *fc  *^  rjZ  •P  ^K  7fZ  «f»  *fc JJC  »fv ^s  Jf*  3p *o *fc  *?*  Jr* *p  «t*  3p  *f*  3p  *N ^o  <P »r*  ^S  ^p *^ *f* *r*  ^* *>* *^ ^^  *^ ^^ ^p ^^ ^^  *P *P  **^ "T*  *o  *P  ^>  3p »p *J*  / 

S*   THIS    ROUTINE    IS    USED    TO   EXAMINE   AND   OPTIONALLY  */ 

/*   MODIFY  REGISTERS.  */ 

/•*   CALLED   BY:    DEBUGSCMD  */ 

/  x**  «j#  *J^  *4»  u  ui  >i.  *i»  -j*  «,(».  *j>  «u  tb  «>r  >b  vu  ui  >i#  vt*  vf*  vu  •+.  «Jji  ■vju  •.  u  -.t*  *i»  «+•  vi>  ku  »*-  *!■'  "^*  ■**'  Sr  Sr*  S.*  'tt'  *■(*  *±*  ^f  *£.*  ^  *i*  S*  ~  t'  *+*  vi^  S.*  "  t*  S^  S^  *1'  *i-  y' 
/   ^  *^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  *T*  ^  *f*  'n  'o  »o  *t*  «p  "T*  *p  «r*  if*  *r*  *o  *o  *T*  *N  •*•  *^*  "t*  "<*  *T*  *^  *r*  •T*  «t*  *t*  "T»  *N  *t*  W>  *?*  •Tfc  *D  *r*  *t>  «T*  *1*  ^»  *T*  ^*  *r*  / 

/*  REGISTER  POINTER  TABLE  -  POINTS  TO  LOCATION  IN  */ 
/*  DEBUG*STACK  FOR  REGISTER  CONTENTS.  FIRST  ENTRY  */ 
/%  IS  ASCII  CODE  CODE  FOR  REG  ID,  SECOND  ENTRY  IS  */ 
/*    DEBUGSSTACK   ADDRESS    AND   THIRD    ENTRY    IS    REG  */ 

/*  TYPE  -  3  FOR  NIBBLE,  0  FOR  BYTE  AND  1  FOR  TWO  */ 
/*   BYTES .  #/ 

DECLARE   REGSPNTRC44)    BYTE    INITIAL 

r*  C  */(43H,[HEX  DEBUGSSTIC+TOP- 13]  ,  3, 
/*  E  */  45H,[HEX  DEBUGSSTK+TOP-14] ,3, 
/*  I  «/  49H, [HEX  DEBUGSSTK+TOP-15]  ,3, 
/%   Z   */    5AH,[HEX  DEBUGSSTK+TOP-16] ,3, 
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/*   M  */  4DH.CHEX  DEBUGSSTK+TOP- 17] ,3, 

,*   A  *s  41H, [HEX  DEBUGSSTK+TOP- 1 1 ] , 0 , 

/*   B  */  42H,  [BEX  DEBUGSSTK+TOP- 9]  , 1, 

/•*    D  */-  44H,[HEX  DEBUGSSTK+TOP-7] , 1 , 

/*   H  */  48H,[HEX  DEBUGSSTK+TOP-5] , 1, 

r*    S  */  53H,[HEX  DEBUGSSTK+TOP-3] , 1, 

/*   P  */  50H,[HEX  DEBUGSSTK+TOP- 1 ], 1 ) ; 

[READSTERMINAL] ;       /*   CHECK  FOR  CR  */- 
IF    ( A: :  [  CR] )    ZERO   THEN 

DO;   /*  CR  ENTERED  -  DISPLAY  ALL  REGISTERS  */ 
BC= . REGSPNTR(0) ; 
STACK=BC; 
I=(A=5)  ; 

REPEAT;   /*  DISPLAY  FLAG  BITS  */ 
BC= STACK; 
A=M(BC)  ; 
STACK=  BC ; 

[WRITESTERMINAL  'A']; 
BC= STACK; 
CALL  SETSUP; 
STACK=  BC ; 

CALL  [ CONVERTS WR I TE3  ; 
UNTIL  (I=(A=I-1);  A::0)  ZERO; 
I  =  (A=6)  ; 

REPEAT;  /*   DISPLAY  REGISTER  VALUES  */ 
CALL  [ BLANK] ; 
BC= STACK; 
A=M(BC)  ; 
STACK=  BC ; 

[WRITESTERMINAL  'A']; 
A='=';  [WRITESTERMINAL  'A']; 
BC=  STACK; 
CALL  SETSUP; 
STACK=BC; 

CALL  [CON VERTS WRITE]  ; 
UNTIL  (I=(A=I-1);  A::0)  ZERO; 
BC= STACK; 
END    /*  DISPLAY  ALL  REGISTERS  */ 
ELSE 

DO;   /"*  REGISTER  MODIFICATION  */ 
E=A; 

EXIT=(A=[  FALSE] ) ; 

DO   BC= .REG$PNTR(0)    BY  BC=BC+ 1 , + 1 , +1 , + 1 
WHILE    (A=EXIT;    A::  [FALSE])    ZERO   3 

(HL=.REGSPNTR(43)  ;  A=L-C;  A=H — B)  PLUS; 
IF  (A=M(BC);  A::E)  ZERO  THEN 
DO;   /*  REGISTER  MATCH  */ 
STACK=BC; 

[WRITESTERMINAL  'A']; 
A='=';  [WRITESTERMINAL  'A']; 
BC=  STACK;  STACK=  BC ; 
CALL  SETSUP; 
CALL  [ CONVERTS WRI TE]  ; 
CALL  [ BLANK] ; 
CALL  [ GETSPARAM] ; 
IF  TCY  THEN 

CALL  [  ERROR] ;   /*  NO  CR  ENTERED  */ 
BC= STACK; 
IF  (A: :0)  ZERO  THEN 

DO;   /*  STORE  REG  VALUE  */ 
STACK=HL; 
CALL  SETSUP; 

BC= STACK;   /*  RESTORE  NEW  VALUE  */ 
IF  (A=L;  A:  :  1)  ZERO  THEN 
DO; 

M(DE)  =  (A=B)  ; 
DE=  DE- 1 ; 
END; 
M(DE)=(A=C)  ; 
END; 
EXIT=(A=[TRUE])  ; 
END;  /*   REGISTER  MATCH  */ 
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/*    INPUT  FINAL   ADDRESS   */ 


/*    INPUT  BYTE   CONSTANT   */ 
ZERO   THEN 


END;    /*   DO   WHILE   */ 

IF    (A=EXIT;    A:: [FALSE!)    ZERO   THEN 

CALL    [ERROR];       /%   NO   REGISTER  MATCH  FOUND   */ 
END;    /*   REGISTER  MODIFICATION   */ 
END  X; 

FILL:    PROCEDURE; 

/"*    THIS    ROUTINE    IS    USED   TO   SET   A   MEMORY  BLOCK  TO   A  */" 

/*   SPECIFIED   VALUE.       THE   ROUTINE    INPUTS   THE   THREE  */ 

s*   REQUIRED   PARAMETERS:    START   ADDRESS,    FINAL   ADD-  */ 

/*   RESS,    AND   BYTE   CONSTANT.       THE   CONSTANT    IS   THEN  */ 

/*    PLACED    IN    THE    START   ADDRESS    THRU   THE   FINAL    ADD-  */ 

/*   RESS.  */ 

/*   CALLED   BY:    DEBUGSCMD  */ 

CALL    [  GETSPARAM] ;       /*    INPUT  START   ADDRESS   */ 
IF   CY  \    (A::0)     !ZERO   THEN 

CALL    [ERROR] 
STACK=HL; 
CALL   [GETSPARAM] 
IF    CY  \    (A::0)     'ZERO   THEN 

CALL    [ERROR] 
STACK=  HL ; 
CALL   [GETSPARAM] 
IF    !CY  \    (A:  :0) 

CALL    [ERROR] 
D=L;    HL= STACK;    BC= STACK; 
/*   HL=FINAL   ADDR,    BC=START   ADDR  *• 
IF    (A=L-C;    A=H — B)    MINUS   THEN 

CALL    [ERROR];    /*   FINAL   ADDR  <    START   ADDR  */ 
REPEAT;       /*    PERFORM  FILL   */ 

A=D; 

M(BC)=A; 

BC=BC+1;    D=A; 
/■*   FINAL   ADDR  <    START   ADDR  */ 
UNTIL    (A=L-C;    A=H~B)    MINUS; 
END   FILL; 

SET:    PROCEDURE; 

/*   ROUTINE   WHICH   ALLOWS   MEMORY  LOCATIONS   TO   BE   SET  */ 

/*   AND   OPTIONALLY  ALTERED.    THE   ROUTINE    INPUTS   ONE  */ 

/*    REQUIRED    PARAMETER  WHICH    IS    THE   ADDRESS    AT   WHICH  */ 

/*   MEMORY  EXAMINATION    IS   TO   BEGIN.  */ 

/■*    CALLED   BY:    DEBUGSCMD  */" 

f  si,  sh»  si*  *■*■  vt*  si*  si.  *Lr  ^br  *tr  vV  \lr  «>.  si,  si»      Ls  tUslfUf  -*•  --1-  vw  ->.  si*  vfc-  *i^  v(*  - ht  ■  i.  -f--^-  -*'••*•  ■**  •**  -f  *f  S*  ***  •*»  *£»  *J*  **»  -+*  *■*•  ***  -+-  "+'**•  *±*  ***  *t*  *t"  'J'     / 

/  ^  »^  »^  *f*  ^s  ^  ^  ^  *f*  *^  *N  >S  ^  tf»  ^*  ff*  *f*  *f*  »f*  ^  «t>  *f*  *r»  *f*  n*  "fr  *r*  *f»  *r*  *N  *r*  *r»  *r*  *r»  *r*  »r*  «r*  ^*  *!*  *r*  *r*  *t»  *T*  *f*  *^  "T*  *t*  »f**t»  n*  *f*  *t»  *f»  *T*  / 

DECLARE    SETSLOC(2)    BYTE    INITIAL    (0,0); 
EXIT=(A=[ FALSE]) ; 

CALL    [GETSPARAM];       /-*    GET  SET   LOCATION   */ 
IF    ICY  \    (A::0)     !ZERO   THEN 

CALL    [ERROR];    /*   ERROR    IF   NO   SET  LOCATION   ENTERED   */ 
SETSLOC=HL;       /*   SAVE  SET   LOCATION   */ 
DO   WHILE    (A=EXIT;     A:: [FALSE])    ZERO; 

/*    WRITE   OUT   ADDRESS   FOLLOWED   BY  CONTENTS   */ 

DE= . SETSLOC( 1) ;    L= 1 ;    CALL    [ CONVERTSWRITE] ; 

CALL    [  BLANK]  ; 

HL=SETSLOC;    DE=HL;    L=0;    CALL    [  CONVERTS WRITE]  ; 

CALL    [  BLANK]  ; 

/*   PROCESS    INPUT  */ 

CALL    [ GETSPARAM] ; 

IF    !CY  THEN      /*    NO   CR  ENTERED   -    ERROR  %/ 

CALL    [  ERROR]  ; 
IF    (A: :0)    ZERO   THEN 

DO;       /*    VALUE  ENTERED   -   SAVE    IT   */ 
DE=HL; 
HL=SETSLOC; 

M(HL)=E;    SETSLOC=(HL=SETSLOC+l)  ; 
END 
ELSE 

DO;       /*   SLASH,    CR  OR  MINUS   ENTERED   */ 

IF    (A::2FH)    ZERO   THEN      /*   SLASH   ENTERED   -    EXIT   */ 
EXIT=(A=[TRUE]) 


181 


ELSE 

DO;       /*   DECR  SET  LOC    IF   MINUS   */ 
/*   ELSE    I NCR  SET  LOC  */ 

IF    (A: :2DH)    ZERO   THEN 

SET3L0C= ( HL=  SETSLOC- 1 ) 
ELSE 

SETSLOC= ( HL=  SETSLOC+ 1 ) ; 
END; 
END; 
END;       /*   DO   WHILE   */ 
END   SET; 

DISPLAY:    PROCEDURE; 

/•*   THIS    ROUTINE   DISPLAYS    4    LINES    OF    MEMORY    IN   HEXA-  */ 

f*   DECIMAL   AND    ASCII    FORMATS.    EACH   LINE   DISPLAYS    16  */ 

/*   BYTES   OF   DATA.    MEMORY    IS   DISPLAYED   FROM  THE  */ 

S*    CURRENT   DISPLAY  LINE.    THE    DISPLAY  LINE    IS    AUTO-  */ 

/*   MAT I C ALLY  UPDATED   BY  THE   PROCEDURE   AS   MEMORY    IS  */ 

/*    DISPLAYED   OR  MAY  BE   SET   BY  THE    COMMAND   DS    WHERE  */ 

/*   S    IS   THE   NEW  DISPLAY  LINE.  */ 

/*   CALLED   BY:    DEBUGSCMD  *• 

/  3K  3R  *fC  *^  Jf*  *P  3f»  *^  »S  «fv  *R  ?P  *p»  *T*  *S  *P  vf^afi  *fs  «n  *4s  3p  ^^  ^^  ^^  *^  *r*  *P  ^p  *n  ^p  *fc  *T*  *T*  *P  ?P  *P  *r*  *o  *?^  *r*  *r»  *T*  3^  «p  *f^  «^  ?fs  ^^«f>^P-f»v^  3f\  / 

DECLARE   DISPLAYSLINEC2)    BYTE    INITIAL    (00H,40H); 

CALL    [ GETSPARAM] ; 

IF    !CY  THEN      /*    CR  WAS    NOT   ENTERED   AS    DEL I METER  */ 

CALL    [ ERROR] ; 
IF    (A::0)    ZERO   THEN      /*   SET   NEW  DISPLAY  LINE   */ 

DISPLAYSLINE=HL; 
I=<A=4);       /*    SET   LINE   COUNTER   */ 
REPEAT;         /*    DISPLAY  LINE   */ 
HL=.DISPLAYSLINE(  1) ; 
DE=HL;    L=l; 

CALL    [CONVERTSWRITE] ;       /*   WRITE   ADDRESS   */ 
CALL    C  BLANK] ;    CALL    [ BLANK] ; 
HL=DISPLAY»LINE; 
DE=HL;    L=2; 
J=(A=8)  ; 

REPEAT;       /*    WRITE   OUT   HEX  DATA   */ 
CALL    [CONVERTSWRITE]; 
STACK=HL;    STACK=DE; 
CALL    [  BLANK]  ; 
DE= STACK;    HL= STACK; 
UNTIL    (J=(A=J-1);    A::0)    ZERO; 
CALL    [  BLANK]  ; 
HL=DISPLAY$LINE; 
J=(A=16)  ; 

REPEAT;       /*    WRITE   OUT   ASCII    DATA  */ 
A=M(HL)  ,87FH; 

/*    PRINT   A   PERIOD   FOR  CHARS    >    SPACE   OR  RUBOUT   */ 
IF    (A::20H)    MINUS   \    (A::7FH)    ZERO   THEN 

A=  '  .  '  ; 
STACK=HL; 

[WRITESTERMINAL    'A']; 
HL=STACK,+1; 
UNTIL    (J=(A=J-1);    A::0)    ZERO; 
CALL    [CRLF] ; 

HL=DISPLAY»LINE,+(DE= 16)  ; 
DISPLAYSLINE=HL; 
UNTIL    (I=(A=I-1);    A::0)    ZERO; 
END   DISPLAY; 


MOVE:    PROCEDURE; 

/*    THIS    ROUTINE   MOVES    A   SPECIFIED    NUMBER  OF    BYTES  FROM*/ 

/*   ONE   SECTION   OF   MEMORY  SPECIFIED   BY  THE   USER  TO  AN-    */ 
/*   OTHER  SECTION.       GETSPARAM    IS   CALLED   TO   DETERMINE        */ 

/*   THE   START   AND    DESTINATION    ADDRESSES    AS    WELL   AS  THE   */ 

/*    NUMBER  OF    BYTES   TO   BE   MOVED.  */ 

/"*    CALLED   BY:    DEBUGSCMD.  *' 
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I=(A=0)  ;    SAVCY=A; 
REPEAT; 

CALL   [  GETSPARATO  ; 

IF   CY  THEN   SAVCY=(A=1); 

IF    (A=I;    A::0)    ZERO  THEN 

STACK=HL   /*    SAVE   START   ADDRESS   */ 

ELSE 

IF    (A=I;    A::l)    ZERO   THEN 

STACK=HL   /*   SAVE  DESTINATION   ADDRESS   */ 


ELSE 

IF    (A*  I; 

A: :2>    ZERO   THEN 

DO; 

B=H; 

C=L;    /*    BC    GETS 

#   OF   BYTES   TO   BE   MOVED   */ 
/*    HL   GETS    DESTINATION    ADDRESS   *' 
DE   GETS   START   ADDRESS   */ 


/* 


HL=  STACK; 
DE=  STACK; 
REPEAT; 

M(HL)=(A=M(DE))  ; 
HL=  HL+ 1 ;       DE=  DE+  1 ; 
UNTIL   (BC=BC-1;    A=0;    A;:C) 
END; 
I  =  (A=I+1)  ; 
UNTIL    (A=SAVCY;    A:  :  1)    ZERO: 
IF    (A=I;    A::  3)     !ZERO   THEN   CALL    [ERROR] 
END   MOVE; 


ZERO   8    (A: :B)    ZERO; 


HI:    PROCEDURE; 

/*   THE   H   ROUTINE   SETS    A   FLAG  CALLED   HFLAG   WHICH  */ 

/*   CAUSES    AN    EXIT   FROM  THE   GO   ROUTINE  WITH    IN-  */" 

/*   TERRUFTS   DISABLED.       THIS    PROCEDURE  IS    NECES-  */ 

S*    SARY  FOR  THE   DEBUGGING   OF    CRITICAL  SECTIONS  */ 

/*   OF   CODE;    THAT    IS   PORTIONS    IN   WHICH  THE    INTER-  */ 

/*    RUPT   HANDLER  HAS    BEEN   DISABLED.  */ 

/*   CALLED   BY:    DEBUGSCMD  */ 

s   «t»  tf»  *t*  *r»  *t*  *t*  *P  *T*  *n  3p  *n  »p  *n  Sn  *f*  *P  *r»  *o  *T*  •/»  *r*  *P  'r*  *P  »»*  "f*  3p  *f*  »J^  *o  !p  *)>  »T*  *P  -P  *jn  *r^  *I^ *r^  *r*  *r*  ^<*  *^  *o  *?•  **»  *^ *R  *P  / 

HFLAG= ( A=  C  TRUE] ) ; 
CALL   GO; 
END   HI; 

EOF 


/*******    DEBUG   PROCESSING   PROCEDURES    -    DISK    I/O    ***xxxx/- 


/***************    INTERMODULE    LINKAGE   MACROS    ***********/ 


[INT  DB1    DB2   M2B   GB] 

[M2B:=0600H]     CDB1:=2BA0H] 

[MACRO   MTS    '  1F06H'] 

[MACRO   ERROR    '[HEX  DB1    +    13H]  '  ] 

[  MACRO   GETSPARAM    '  [  HEX  DB2    +    0BBH]  * 

[  MACRO   DMTSFLAG    ' C HEX  GB   +    3EBDH] * ] 

[  MACRO    DMTSBOE    '  [  HEX  GB    +    3EDDH]  ' ] 

[MACRO   DMTSEOE    '[HEX  GB   +    3F1DH}*] 

[  MACRO   MDBUF    ' C HEX  GB   +    3C7EH] ' ] 

[ MACRO   MDBUF3MAX    '  [  HEX   GB   +    3C7EH   + 

[MACRO   MINISDISK    '[HEX  M2B  +    54H]  '  ] 


[DB2:=2EC0H]     [GB:=0] 


512] '] 


/***************    GENERAL   PURPOSE   MACROS    ***************/- 

[MACRO   WRITESTERMINAL   LTR    'C=10;    E= C LTR] ;    CALL    [MTS]'] 
[MACRO   SUBSHLSDE    'L=(A=L-E);    H=(A=H — D)  '  ] 
[MACRO   TRUE    '0FFH'] 
[MACRO   FALSE    '00H'] 

/****************    MODULE   DECLARATIONS    ******************/" 

DECLARE   CHARSPNTRC2)    BYTE    INITIAL    (0,0); 
DECLARE   RECSPNTR(2)    BYTE    INITIAL    (0,0); 
DECLARE   CSSECT0R(2)    BYTE    INITIAL    (0,0); 
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DECLARE   RECSLEN  BYTE    INITIAL   (0); 
DECLARE   B0E(2)    BYTE    INITIAL    (0,0); 
DECLARE   E0E(2)    BYTE    INITIAL    (0,0); 
DECLARE   EXIT   BYTE    INITIAL    (0); 

I NIT:    PROCEDURE; 

/*   ROUTINE   WHICH   VERIFIES   THAT   DISK  EXISTS    AND   SETS  */ 

/*    B0E   AND   E0E   OF   DISK    INTO   BOE   AND   EOE   VARIABLES.  */ 

/*    INPUT:    L   -    DISK  NUMBER  */ 

/*   OUTPUT:    BOE   AND   EOE   VARIABLES   SET  */ 

/*   CALLED   BY:    READ  */ 

/    2f»  *^*p  *F*F  'F  *F  ^  *N  *F  ?F*S  ^F*P *o  *P*P^  *F  ^^3F^*F?p  Tf.  -P  *f.  ^fC  ^f,  rfC^fCPf;  5f.  If,  *£  »f*  »f»  ^  ^^^^  ^5f»5f»5ftir*3ft5pt3f*3f! Jft  JfC  / 

IF    (A=L;    A::32)    PLUS   THEN      /*    INVALID   DISK  NUMBER  */ 

CALL    C  ERROR]  ; 
H=0;    C=L; 

DE= [ DMTSFLAG] ;    HL=HL+DE; 
IF    <A=>M(HL))     TCY  THEN      /*    DISK  DOESN'T   EXIST   *s 

CALL    [  ERROR]  ; 
/*   COMPUTE   BOE   AND   EOE   */ 
H=0;    L=(C=(  A=<<C)  )  ; 
DE=  [  DMT3B0E] ;    HL=  BL+DE ; 

BOE(0)  =  (A=M(BL)  )  ;    HL=HL+1;     BOE(  1)  =  (  A=M(  HL)  )  ; 
H=0;    L=C; 

DE=  C  DMTSEOE] ;    BL=  BL+DE ; 

EOE(0)  =  (  A=M(HL)  )  ;    HL=HL-t-l;     EOE(  1 )  =<  A=M(  HL)  )  ; 
END    IN  IT; 

CHECKSRD8PNTR:    PROCEDURE; 

/    tKSft  3p3p  #^  3^  r£  5^  *^  *&  *fc  *F  *f*  ^C3p  «^  *^  Tfi  *^  *P  *fs  *fc  *fs  7^  *fi  tfc  *^  *^  7fi  *p  -P  7P  *^  *fc  *f*  *f*  *T*  *f*  *F^F  3p  tf%«^  *K  »F  ^F  ^F  *F  *N  ^^  *N  *o  *r«^>  / 

/*  ROUTINE  TO  CHECK  THE  CHARACTER  POINTER.  IF  CHARS  */ 
/*  PNTR  EXCEEDS  THE  BUFFER  LENGTH,  THE  NEXT  SECTOR  IS  */" 
/*   READ    INTO   MEMORY  AND   POINTERS   ARE   UPDATED.  */ 

/■*    CALLED   BY:    GNC  */• 

/  *fC 7f\ ^f> tf\ *r* »fl *fl ^fC ffc j(% -7* *f» *n *r* sp 3p 3p »p *f* 3p «F *n W *n *r* *R ^r* *P *P *r* *P W ^*^ *p *f» 3p 3p ^ *N *f* ^ *n m* *p 3p ^ *?* ^ *N *R *R 5f* *p r 

STACK=HL;    STACK=BC; 
HL=CHARSPNTR;    DE=  C  MDBUFSMAX]  ; 

IF    (  CSUBSHLSDE] )     PLUS    THEN      /*    CHARSPNTR  >= MDBUFSMAX  */ 
DO; 

BL=EOE;    DE=HL; 

f*    COMPUTE   CSSECTOR  -    EOE    AND   TEST   > 0    */ 

HL=CSSECTOR,-l; 

IF    ( [ SUBSHLSDE] )    PLUS   THEN 

DO;       /*   NO   MORE   DISK  SPACE   */ 
A='S*;     OfRITESTERMINAL    'A']; 
A=*P';     [WRITESTERMINAL    'A']; 
CALL   [ ERROR] ; 
END; 
/*    READ   DISK  BUFFER   */ 
BC=(HL=CSSECTOR) ; 
DE=CMDBUF];    L= 1 ;       /*    READ   *• 
CALL    [MINISDISK]  ; 
IF    (A::  [TRUE])    ZERO   THEN      /*    DISK  ERROR  */ 

CALL   C ERROR] ; 
CSSECTOR=  (  HL=  CSSECTOR,  + 1 )  ; 

/*    COMPUTE    REC3LEN= RECSLEN- (CHARSPNTR  -    RECSPNTR)    */ 
HL= RECSPNTR;    DE=HL; 
HL= CHARSPNTR; 
[ SUBSHLSDE] ;    DE=BL; 
H=0;    L=( A=  RECSLEN) ; 
[ SUBSHLSDE] ;    RECSLEN= ( A= L) ; 
/*   RESET  REC   AND   CHAR  POINTERS   */ 
HL= CHARSPNTR;    DE=512; 
[SUBSHLSDE];       CHARSPNTR=BL; 
RECSPNTR=HL; 
END; 
BC= STACK;    HL= STACK; 
END   CHECKSRDSPNTR; 

GNC:    PROCEDURE; 

/*    ROUTINE    TO    RETURN    NEXT  CHARACTER.    THIS    ROUTINE  *• 

/*    ELIMINATES   SYCOR    INFORMATION   FROM  THE   RECORD   AND        */ 
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/*  CONVERTS   CHARACTER  TO  HEX    IF   VALID  VALUE.    THE  */ 

/-*  FORMAT  OF   THE   SYCOR  FILE   FOLLOWS:  */ 

/*  ABCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCBA  */ 

/*  WHERE   A    IS   00H    IF   THE   RECORD    IS    ACTIVE   OR  80H    IF  *s 

/%  THE   RECORD   HAS   BEEN   DELETED.    B   CORRESFONDS   TO   THE  */ 

/*  NUMBER  OF   C'S    (OR  BYTES)     IN   THE   RECORD.  */ 

/*  */ 

/%  OUTPUT:     IF   HEX  CHAR  READ  */ 

/*  CY=0,    A=HEX  VALUE  */ 

/*  IF   NOT  A  HEX  CHAR  */ 

/*  CY=1,    A=ASCII    CHAR  */ 

/•*  CALLED   BY:    READ,GNB  */ 

/  -^  "^- si*  vt>  vV  *Jf  «J»  *+•  *X»  »v  »»  vu  *V  •.&*  >j»  vl*  .4*  *£»  vi-  -t.  -J>  "A*  "+*  *l*  *£*  -(■*  ***  *t*  "-[■*  "■&■  *+•  *"i*  'i*  *£"  *4*  "^  *if  *i**i*  *1*  *+**+'  "V  S*  *+*  *V  *+*  W-*  *-t*  *"K  *+"  *+'**'  "fr*  / 


STACK=HL; 
/*    INSURE   CHARACTER    IN   MEMORY  */ 


STACK=BC;    STACK=DE 
CALL   CHECKSRDSPNTR 
B=0;    C=(A=RECSLEN) 
HL=RECSPNTR;     DE=HL;    HL=CHARSPNTR; 
/*    IF   CHARSPNTR  -    RECSPNTR   =    RECSLEN   */ 
/*  THEN   PROCESS    NEW  SYCOR  RECORD  */ 

IF    ( C SUBSHLSDE] ;    A=H;    A::B)    ZERO   8    (A=L;    A::C)    ZERO   THEN 
DO;       /■*    PROCESS   NEW  SYCOR  RECORD   */ 
EXIT=(A=[  FALSE])  ; 
REPEAT; 

HL= CHARSPNTR; 

B=M(HL);    /*   SYCOR  RECORD   EXISTENCE   FLAG   */ 

CHARSPNTR=  (  HL=  HL+ 1 ) ; 

CALL   CHECKSRDSPNTR; 

RECSLEN= ( A=  M( HL)  ,  +  1  ,  +  1 )  ; 

CHARSPNTR=  (  HL=  HL+ 1 ) ; 

CALL   CHECKSRDSPNTR; 

IF    (A=<B)    CY  THEN 

DO;       /*   SYCOR  RECORD  DELETED   */ 
B=0;    C=( A= RECSLEN)  ; 
/*   CHARSPNTR=CHAR$PNTR+ RECSLEN  */ 
CHARSPNTR= ( HL=HL+BC) ; 
CALL   CHECKSRDSPNTR; 
END 
ELSE 

EXIT=(A=CTRUE] ) ;       /*   SYCOR  RECORD   VALID   */ 
UNTIL    (A=EXIT;    A:  :[  TRUED    ZERO; 
REC$PNTR=HL;       /*   RECSPNTR= CHARSPNTR  */ 
END;       s*   PROCESS   NEW  SYCOR  RECORD   */ 
HL=  CHARSPNTR;    A=MCHL); 

/*    IF    (CHAR  >     '9'    AND   CHAR  <     'A*)    OR  */ 
/*   CHAR   <     *0'    OR  CHAR  >     'F*  *' 

IF    (IF    (A::3AH)    PLUS   8    (A::41H)    MINUS   THEN 
CY=1    ELSE   CY=0) 

CY  \    (A::30H)    MINUS   \    (A::47H)    PLUS   THEN 
CY= 1      /*   NOT   A   HEX  CHAR  */ 
ELSE 

DO;      /*   HEX  CHAR  -    CONVERT   */ 
A=A-30H; 
IF    (A: : 10)    PLUS   THEN 

A=A-7; 
CY=0; 
END; 
CHARSPNTR= ( HL=  CHARSPNTR,  +  1 ) ; 
HL=  STACK;    DE= STACK;    BC= STACK; 
END   GNC; 

GNB:    PROCEDURE; 

/*   THE   GET  NEXT  BYTE   ROUTINE   READS   TWO   CHARACTERS   AND      */ 

/*    FORMS    A   BYTE.    THE   CHECKSUM    IS  ALSO   UPDATED    IN   THIS      */ 

/*    ROUTINE.  *' 

/*    INPUT:    B   -    CHECKSUM  *x 

/•*   OUTPUT:    A   -    BYTE   VALUE  */ 

/*                        B   -    UPDATED   CHECKSUM  *' 

f*    CALLED    BY:    READ  *' 

STACK=  DE ; 

CALL   GNC;    A=<<A;    A=<<A;    A=<<A;    D=(A=<<A); 

CALL   GNC;    D=(A=A+D); 
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B=<A=B+D);       /*   UPDATE   CHECKSUM  */ 

A=D; 

DE=  STACK; 

END   GNB; 

READ:    PROCEDURE; 

f  wfiiQiiQi  *r*^S  ^*  ^S  *T*  *T*  ^S  ^^  ^»^S  ^N  ^S  ^S  *^  ^S  ^s  ^*  «^  ^R  ^s  *f»  *^  Jp  *P  *T>  *^  ?th  *^  *P  ^^  ^^  •^  >P  *^  *^  ^^  »tv  rff>  *^  3^  *f?  Sp  *fv*f»^^  •^^^P^vRy^  ?P*^/^ 

/*   THIS   ROUTINE   READS   DATA  FROM  A  SYCOR  FILE   ON  THE  */ 

/-*   MINI-DISK    IN    INTEL   HEX  FORMAT  AND   LOADS   MEMORY.  */ 

/*   ONE   REQUIRED   PARAMETER    IN    INPUT.    THIS   PARAMETER  */ 

/*   CORRESPONDS   TO   THE   < N>     IN   THE   SYCOR  FILENAME  */ 

/*    .  DISK<N>.  */ 

/*   CALLED   BY:    DEBUGSCMD  */ 

r   *&*T* *^  *p  *^  "^  *P *r»  ^^ *^  ^p *P  ^S ^* ^p  *P  'r* ^S  *P ^R <p  *P *^  *^  5f»  *^?f» *^  ^o  *P *^  ^S *^  *^ *r* ^^  ^P ^^  *T* *P *^  'P ^R  *T* *P *P  *o*o  Jf»*^ 3p  ?p P*s  *K  J^ ^ 

DECLARE    (START, DONE)    LABEL; 

CALL    [ GETSPARAM] ; 

IF    !CY  \    (A::0)     JZERO   THEN 

CALL   [ERROR];       /*    INPUT  ERROR  */ 
CALL    INIT;       S*   CHECK  FOR  DISK   VALIDITY  */ 
/*    INITIALIZE   VARIABLES    */ 

C$SECTOR=(HL=BOE) ;       /*   SET  CURRENT  SECTOR  NUMBER  *s 
CHARSPNTR=  (  HL=  C  MDBUFSMAX] )  ;    REC$PNTR=  HL ; 
RECSLEN=(A=0)  ; 
START: 

/*   SCAN   TO  SEMI-COLON   */ 

DO   WHILE    (CALL   GNC)     !CY  8    (A::3AH)     TZERO; 

END; 

B=0;       /*   CLEAR  CHECKSUM  */ 

/*   GET  RECORD   LENGTH   */ 

CALL   GNB;    C=A; 

IF    (A: :0)    ZERO   THEN 

GOTO   DONE;    /*    0    LENGTH   RECORD   -    NORMAL   TERMINATION   */ 
/*   GET  LOAD   ADDRESS    */ 
CALL   GNB;    H=A;    CALL   GNB;    L=A; 
/-*    STRIP    OFF    RECORD   TYPE   *• 
CALL   GNB; 
REPEAT;       /*   FILL   DATA   LOCATIONS   */ 

CALL   GNB; 

M(HL)=A: 
UNTIL    (HL=HL+1;    C=(A=C-1);    A::0)    ZERO; 
IF    (CALL    GNB;    A=B;    A::0)     TZERO   THEN 

DO;    /*    CHECKSUM  ERROR  */ 

A=*C*;    [WRITESTERMINAL    'A']; 
A='S';    [WRITESTERMINAL    'A']; 
CALL    [ ERROR] ; 
END; 
/%   ADJUST  CHARSPNTR  TO   POINT  TO   START  OF   */ 
/*    NEXT   SYCOR   RECORD  */ 

H=0;    L=(  A=RECSLEN)  ;    DE=HL; 
CHARSPNTR=(HL=REC$PNTR,+DE) ; 
GOTO   START; 
DONE: 

END   READ; 

DISKS  10:    PROCEDURE; 

/*   THIS    ROUTINE   UTILIZES   CALLS   TO  THE   MINISDISK  */ 

/*   PROCEDURE   TO   READ   OR  WRITE   SPECIFIED   NUMBERS  */ 

/*   OF   SECTORS    BETWEEN   DISK  AND   MEMORY.       THE   DMA  */ 

/*    ADDRESS    IS    SPECIFIED    IN    THE   COMMAND.  */ 

/*   CALLED   BY:    DEBUGSCMD  *' 

DECLARE    ( INPUT,    OUTPUT,    START 1)     LABEL; 
DECLARE    (DISKSOP,    NSSEC)    BYTE    INITIAL    (0,0); 
INPUT: 

DISKSOP=(  A=l)  ; 

GOTO   START1; 
OUTPUT: 

DISKS0P=(A=2)  ; 
START 1 : 
CALL    [ GETSPARAM] ; 

IF   CY  \    (A::0)     TZERO   THEN   CALL   [ERROR]; 
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STACK=HL;    /*   SAVE   THE   STARTING  SECTOR  *   */ 
CALL    [  GETOPARAM]  ; 

IF   CY  \    (A::0)     TZERO   THEN   CALL    C ERROR] ; 

STACK=HL;    /*   STACK  START  ADDRESS    */ 
CALL   £  GETSPARAM] ; 

IF    !CY  \    (A::0)     fZERO   THEN   CALL    [ERROR]; 
/-*    SET   *    OF    SECTORS    -    SET   UP    FOR  CALL   TO    MINIDISK   */ 
N3SEC=(A=L);    L=< A=DISKSOP) ; 
DE= STACK;    BC= STACK; 
REPEAT; 

CALL    [MINISDISK] ; 

IF    (A::0)     'ZERO   THEN   CALL    [ERROR]; 

DE=(HL=200H+DE)  ;       BC=BC+1;       L=< A=DISK$OP) ; 

NSSEC=( A=N»SEC,-1) ;   /*  READJUST  COUNTERS  */ 
UNTIL  (A::0)  ZERO; 
END  DISKS  10; 


EOF 
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/*****  rrrs  command  processor  (mcp>       *    *    *    */ 

19FAH: 

MCP:   PROCEDURE; 

/*■      MCP  IS  AN  INDEPENDENT  MODULE  OF  THE  MICROCOMPUTER 
TIMESRARED  SYSTEM  (MTS)  DEVELOPED  FOR  THE  NPS 
MICROCOMPUTER  LABORATORY  9YCOR  440  SYSTEM. 
THIS  MODULE  IS  CALLED  BY  THE  MTS  MONITOR  TO 
PROCESS  ANY  SYSTEM  COMMANDS  ENTERED  THROUGH  THE 
TERMINAL  INTERFACE  BY  THE  USER.   MTS  COMMANDS  ARE 
VALIDATED  BY  MCP  AND  THEN  SENT  TO  MTS  SERVICE 
CALL  CONTROL  MODULE  FOR  FURTHER  PROCESSING. 
MCP  IS  WRITTEN  IN  PLM  FOR  TWO  REASONS: 

(  1)  TO  UTILITZE  A  HIGH-LEVEL  LANGUAGE  TO 

FACILITATE  THE  DESIGN  AND  DEBUGGING  TASK 

DURING  THE  DEVELOPMENT  OF  MCP. 
(2)  TO  PROVIDE  A  PLM  PROGRAM  WHICH  ILLUSTRATES 

THE  FUNCTION  CALL  REQUIREMENTS 

FOR  ANY  USER  PROGRAM  TO  INTERFACE  WITH  MTS. 

THERE  ARE  TWO  PRIMARY  DIFFERENCES  BETWEEN  THE  MCP 
INTERFACE  WITH  MTS  AND  A  USER  PROGRAM/MTS  INTERFACE. 

(  1)  ONE  IS  THE  ENTRY  PORT.   THE  MTS  INTERFACE  PORT 
FOR  USER  PROGRAMS  IS  20O0H.   THE  ENTRY  PORT 
FOR  MCP  IS  1F00H. 
(2)  THE  OTHER  DIFFERENCE  IS  THAT  USER  PROGRAMS 
DO  NOT  HAVE  TO  BE  CONCERNED  WITH  SAVING 
AND  RESTORING  THE  MTS  MONITOR  STACKPTR. 

MCP  WILL  PROCESS  THE  FOLLOWING  SYSTEM  COMMANDS 
ENTERED  AT  THE  TERMINAL  BY  THE  USER: 

COMMAND  PARAMETERS 

LOGIN  <DISK  NUMBER>  /<  KEY> 

QUIT  NONE 

ATTACH  <  DRIVE   LETTER>    <DISK  NUMBER>    /<  KEY> 

PROTECT  <DISK  NUMBER>  /<  KEY> 

RESTRICT  <DISKNUMBER>  /<  KEY> 

UNPROTECT  <DISK  NUMBER>  /<  KEY> 

SIZE  < MEMORY  SIZE> 

WHERE 

< DRIVE  LETTER>-  DESIGNATES  A  VIRTUAL  FLOPPY  DISK 

DRIVE  TO  BE  ONE  OF  THE  LETTERS 

A  THRU  H. 
<DISK  NUMBER>  -  SPECIFIES  A  VIRTUAL  FLOPPY  DISK 

NUMBER  FROM  0-31. 
<DISK  NUMBER>  -  SPECIFIES  A  DISK  NUMBER  FROM  0-31. 
/<KEY>         -  SPECIFIES  A  4  CHARACTER  KEY  CODE. 
< MEMORY  SIZE>  -  SPECIFIES  THE  SIZE  OF  THE  USER 

PROGRAM  AREA. 

/*   *   *   *   MCP  LITERAL  AND  DATA  DECLARATIONS   *   *  */ 

/■*      *   *   *   *   T1CP  LITERAL  DECLARATIONS   *   *   *   *   */ 

DECLARE 

LIT  LITERALLY  'LITERALLY', 

MTS  LIT  ' 1F00H' ,/*  INTERNAL  MTS  PORT     *• 

MTSSCMDSREADY   LIT  '0F0H'  , 
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INVALID8CMD 

TRUE 

FALSE 

CR 

LF 

TAB 


LIT    ' 1' 

LIT    '0FFH' , 
LIT    '0' 
LIT    '0DH'     , 
LIT    '0AH'     , 
LIT    *9' 


MAX*CBUFFSSIZE  LIT  '64' 

READSMTSSCMD  LIT  '-1' 

ATTACH  LIT  '0* 

MTSSMSG  LIT  ' 1' 

LOGIN  LIT  '2' 

PROTECT  LIT  '3* 

QUIT  LIT  '4' 

RESTRICT  LIT  '5' 

SIZE  LIT  '6' 

UNPROTECT  LIT  '7' 

TERMINALSSTATUS  LIT  '8' 

READSTERMINAL  LIT  *9' 

WRITESTERMINAL  LIT  '10' 


/*    INTERNAL  MTS   CMD        */ 
/*MTS   SYSTEM  CMD   NUMBERS*/ 


/*      *      *      *      *      nCP    GLOBAL    DECLARATIONS 


*/ 


DECLARE 

CBUFF    (64)  BYTE, 

CBUFFSLENGTH  BYTE, 

CBUFF9PTR  BYTE; 


/*  CMD  BUFF  FOR  MTS  COMMAND  */ 
/*  NUMBER  OF  CHARS  IN  CBUFF  */ 
/*   PTS   TO   NEXT  CHAR   IN   CBUFF 

TO   BE  PROCESSED  */ 


DECLARE 

CHAR  BYTE,  /*   USED   FOR  CHAR  MANIPULATION  */ 

VALUE    (2)  BYTE,  /*    VECTOR  FOR  CONVERTING   NUMBERS    */ 

PARAMETERS(6)  BYTE;  /^PARAMETERS   FOR  MTS   SYSTEM  CALLS*/ 


r    ^S  *T*  ^N  *f*  ^^  ^S  ^p  ^*  ^S  *^  ^S  *f*  »f*^S  ^S  *T*  ■fk*t^  *p  ^  ^S  ^*  ?^  *fi  *V*  *o  if^*^  *?*  'o  *('  'N  *f*  *T^  *P  ^^  'f*  *r*  ^^*^«n  *r»  »f»  *P  *P  ?f**^*^  *^5^  J^  *f*  >fs  Jfl  /^ 

/*****      MTS    INTERFACE   PROCEDURES      *      *      *      *      */ 


f   ^S*P*^  *o  *^  J^*^3^  ""Fi  *f*  *^  *P  *^  *^  *f»  *^^P  ^^  »f*  *^  pp  ^^  *o  *P  flp  *^  *r*  'P  *^  *^  *^  ^P*n  *T*  *f*  ^S  ?n  *^  ^S  *P  *P  ^f*  *f**f*  *P  *P  *f*  <f^  3n  *n  *^  *f*  / 

/*         MTS1-    PROVIDES   MTS    INTERFACE   FOR  FUNCTIONS 
WHICH   DO   NOT   REQUIRE    A   RETURN    VALUE. 
'F*    CONTAINS   THE   MTS   CMD   NUMBER;     'A'    CONTAINS 
THE    PARAMETER  OR  ADDRESS    TO   LIST  OF    PARAMETERS. 
CALLED   BY:    ERRORSMSG;    SENDSMTSSCMD 

*/ 
MTS 1 :       PROCEDURE    ( F , A) ; 

DECLARE   F    BYTE,    A   ADDRESS; 

GO   TO   MTS; 

END   MTS1; 

/**^:**^^X**********>c**^:yc***********^:****************/ 
/*         MTS2-    PROVIDES    MTS    INTERFACE   FOR   FUNCTIONS 
WHICH   REQUIRE   A   RETURNED   VALUE. 
'F'     AND    'A'    ARE   THE   SAME   AS    IN   MTS1. 
CALLED   BY:    READSCHAR;    SENDSMTSSCMD 
*/ 
MTS2:       PROCEDURE    (F,A)    BYTE; 

DECLARE   F    BYTE,    A  ADDRESS; 
GO   TO   MTS; 
END   MTS2; 


/**************#***************************************/ 
/******  MCP  PRIMITIVE  PROCEDURES  *  *  *  */ 
/******************************************************/ 

READSCHAR:       PROCEDURE   BYTE; 

RETURN   MTS2( READS MTSSCMD,    0); 
END   READSCHAR; 
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CBUFFSNOTS EMPTY:   PROCEDURE  BYTE; 

RETURN  CBUFFSPTR  <  CBUFFSLENGTH; 
END  CBUFFSNOTSEMPTY; 


DEBLANK:   PROCEDURE; 

DO  WHILE  (CBUFFSPTR  <  CBUFFSLENGTH)  AND 
(CBUFF( CBUFFSPTR)  =  '  ' )  OR 
( CBUFF( CBUFFSPTR)  =  TAB) ; 
CBUFFSPTR  =  CBUFFSPTR  +  1 ; 
END; 
END  DEBLANK; 


ERRORSMSG:   PROCEDURE; 

CALL  MTS  HMTSSMSG,  INVALIDSCMD) ; 
GOTO  FINI; 
END  ERRORS MSG; 


/-*    FILLSCBUFF  -  CHECK  CURRENT  TERMINAL  STATUS  FOR 
MTS  COMMAND.  IF  NOT,  EXIT;  OTHERWISE  FILL  THE 
COMMAND  BUFFER  WITH  THE  MTS  COMMAND. 
CALLED  BY:  MCP  MAIN  CONTROL 
*/ 
F I LLSCBUFF :   PROCEDURE ; 

IF  MTS2(TERMINALSSTATUS,0)=MTSSCMDSREADY  THEN 
DO; 

CBUFFSPTR,  CBUFFSLENGTH  =  0; 
DO  WHILE  (CBUFFSLENGTH  <=  MAXSCBUFFSSIZE)  AND 

( ( CBUFF ( CBUFFSLENGTH) : =  RE ADSCHAR) <>  CR) ; 
CBUFFSLENGTH  =  CBUFFSLENGTH+ 1 ; 
END; 
END; 
END  F I LLSCBUFF; 


INITIALIZE:   PROCEDURE; 
DECLARE  I  BYTE; 
DO  1=0  TO  5; 
PARAMETERS* I)  =  0FFH; 

END; 
VALUE(0),  VALUE(l)  =  0; 
END  INITIALIZE; 


*/ 
LETTER:   PROCEDURE  ( C)  BYTE; 
DECLARE  C  BYTE; 
RETURN  C  >=  'A'  AND  C  <=  'Z'; 
END  LETTER; 

/•*    NUMBER  -  RETURN  TRUE  IF  *C  IS  A  NUMBER. 
CALLED  BY:  GETSNUMBER;  GETS PARAMETERS ; 
ATTACHSCMD ;  S I ZESCMD 
*/ 
NUMBER:   PROCEDURE  (C)  BYTE; 
DECLARE  C  BYTE; 
RETURN  C  >  =  ' 0  *  AND  C  <  =  ' 9 ' ; 
END  NUMBER; 

/*    READSCMDSLINE  -  READS  CHAR  FROM  COMMAND  BUFFER; 
CONVERTS  LETTERS  FROM  LOWER  TO  UPPER  CASE, 
IF  REQUIRED. 
CALLED  BY:  GETSKEY;  GETSNUMBER;  GETS PARAMETERS ; 
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ATTACHSCMD;    SIZESCMD;    MCP    MAIN   CONTROL 

READSCMDSLINE:       PROCEDURE   BYTE; 
DECLARE   C   BYTE; 

IF    <C:=CBUFF(CBUFFSPTR) )    >=    61H  /*   LOVER  CASE   A  */ 

AND   C    <=    7AH   THEN  f*      LOVER  CASE   Z  */ 

C   =    C   AND   5FH;  /*   CONVERT  TO   UPPER  CASE  */ 

CBUFFSPTR   =    CBUFFSPTR+ 1 ; 
RETURN   C; 
END   READSCMDSLINE; 


/*        SCANSTOSBLANK  -   SCAN   TO   NEXT  BLANK  OR  TAB   CHAR. 

CALLED   BY:    MCP   MAIN   CONTROL 
*/ 
SCANSTOSBLANK:       PROCEDURE; 

DO   WHILE    ( CBUFFSPTR< CBUFFSLENGTH)    AND 
( CBUFF( CBUFFSPTR) <> '     ' )    AND 
( CBUFF( CBUFFSPTR) <  >  TAB)  ; 
CBUFFSPTR  =    CBUFFSPTR+1; 
END; 
END   SCANSTOSBLANK; 


S  *4?  *4*  *4*  *4f  "+•  *+•  *  t*  *4»  *Jf  ^4*  *^  ^t*  *4*  *j^*4*  "t*  *V  *^  *i>  S*  *^  4*  "V  *+»*+*  *p  *V  *^  ■+■  -4*  »j*  •**  *J*  -+'  *4*  *>*  "4"  *^  *4*  ^*  vi»  *fr  **■•  *-*'  *4*  *+*  *^  *J*  *v  ^V  *i*  *•**  / 

r     *T*  ^H  ^*  *^  *t*  «T*  »r*  *T«  *f*  *T*  "P  "T*  *f*  ^*  *N  *T»  <1*  *(•  *|*  *T*  ^«  ^^  *T*  *T*  ^^  -1*  ^,  -^  'T*  «T*  n*  "*^  *|5  «^  *o  "T*  *^  if*  ^S  -^*  ^^  ^*  *^  ^S  ^*  n*  ^S  ^*  ^S  ^S  "^  ^S  / 

/*         SENDSMTSSCMD   -    'CMD'    CONTAINS    THE   MTS    CMD   NUMBER 
AND    'PARAMETER'    CONTAINS   THE   ACTUAL   PARAMETER 
OR  THE    ADDRESS    OF    THE   ACTUAL   PARAMETER  LIST. 
TWO   MTS   SYSTEM  CALLS    ARE   MADE: 
(  1)    MTS2   -    PROCESS   SYSTEM  CMD,    WHICH   RETURNS 

A   RESPONSE. 
(2)    MTS1    -    DISPLAY   RESPONSE   AT   USER  TERMINAL. 

*/ 
SENDS MTSSCMD:       PROCEDURE    (  CMD ,  PARAMETER)  ; 

DECLARE   CMD    BYTE,     PARAMETER  ADDRESS; 

CALL   MTSHMTSSMSG,    MTS2(  CMD,  PARAMETER)  )  ; 

END   SENDSMTSSCMD; 


/****      *      UTILITY  PROCEDURES      *      *      *      *      *      *      */ 

/  5f*  *P  *f*  *n  ^P  *^  "J*  *P  *N  *^  *r*  *P  "f*  t*  *t*  *p  *^  *r*  ^P  *N  t'  <fS  ^  "f*  »N  *r*  *N  rfN  *P  *t*  W^  «^  3n  "V  *P ^^  "^  *<*  ^**  *S  *^  *t*  *n  *•*  *<^  *^  *t*  ^^  *^  *P  •<*  ***  *P  "F  i* 


x  *f»  *n  *p  *r*  *r«  *f»  *f*  *f*  *f»  »n  *^  <f*  *r»  ^*  «f»  *f»  Sp  *f*  *f*  »n  !p  3p  5n  •f»*t*  3p  *n  'f*5f*  »f»  V3F  if»3p>3p#p  *f>  ^f*'f*  «f<  3r3p  *f*  its  ?f»  *fC2f!  ??.  ?f»  3p3p  *f*/^ 

/*        CONVERTS VALUE   -   CONVERT   ASCII    CODE    IN    'VALUE' 

TO   APPROPRIATE   BINARY  VALUE.       THE   RANGE   OF   VALUES 

TO    BE   CONVERTED   ARE    FROM   0-31. 

CALLED   BY:    GETSNUMBER; 
*/ 
CONVERTS VALUE:       PROCEDURE   BYTE; 

IF   VALUE( 1)    =    0   THEN   /*ONLY  A   SINGLE   DIGIT  TO   CONVERT*/ 

RETURN    VALUE(0)-30H; 
ELSE  /*   TWO   DIGITS   TO   CONVERT  */ 

RETURN    (  (VALUE(0)-30H)*10+(  VALUE(  D-30H)  )  ; 
END   CONVERTS VALUE; 


/%        GETS KEY  -   GET  THE   < KEY>    PARAMETER,     IF   ENTERED; 
STORE    KEY    IN   THE   PARAMETER   LIST  STARTING   AT    I. 
CALLED   BY:    ATTACHSCMD;    GETS PARAMETERS; 
*/ 
GETSKEY:       PROCEDURE    (  I )  ; 
DECLARE    I    BYTE; 

IF    CBUFFSNOTSEMPTY  THEN         /*NEXT   CHAR   MUST   BE    ' /"  */ 

DO; 
IF    (CHAR:=READSCMDSLINE)    =     '/'    THEN 

DO    WHILE    (I<6)     AND   CBUFFSNOTSEMPTY; 
PARAMETERS ( I ) =READSCMDSLINE; 
1=  1+1; 
END; 
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ELSE  /*    '/"     IS   USED  TO    INDICATE   */ 

CALL   ERRORSMSG;    /*   < KEY>    AND    IS   REQUIRED.       */ 
END; 
END   GETSKEY; 


/*        GETSNUMBER  -   GET  <DISK  NUMBER>    PARAMETER  AND 
CONVERT    IT  FROM  ASCII    TO   BINARY.    STORE   THE 
RESULT    IN   PARAMETER  LIST   AT    'I*.    UPON   ENTRY, 
•CHAR'    HOLDS   THE   FIRST  DIGIT. 
CALLED   BY:    ATTACHSCMD;    GETS PARAMETERS; 

*/ 
GETSNUMBER:       PROCEDURE   (  I )  ; 

DECLARE    I    BYTE; 

VALUE(O)    =    CHAR; 

IF   CBUFFSNOTSEMPTY  AND 

NUMBER( CHAR: = READSCMDSL INE) 

THEN  /*      TWO    DIGIT   DISK  NUMBER  *^ 

VALUEC 1 )    =    CHAR; 

PARAMETERSC I)    =    CONVERTS VALUE; 

END   GETSNUMBER; 


/*         GETSPARAMETERS   -    USED   TO   GET  THE   <DISK   NUMBER> 

AND   <KEY>    PARAMETERS.    GENERATES   ERROR  MSG    IF 

NEXT  CHAR    IS    NOT  A  NUMBER. 

CALLED   BY:    LOGINSCMD;    GETSREQU I REDS PARAMETERS; 
*/ 
GETSPARAMETERS:       PROCEDURE; 

IF   NUMBER(  CHAR:  =  READSCMDSL INE)    THEN 

DO; 

CALL   GETSNUMBER(O)  ; 

CALL   DEBLANK; 

CALL   GETSKEY(  1 )  ; 

END; 
ELSE 

CALL   ERRORS MSG; 
END   GETSPARAMETERS; 


/*         GETSREQU I REDSPAR4METERS    -    GETS    THE   <DISK  NUMBER> 
AND   <KEY>    PARAMETERS   FOR  THOSE   SYSTEM  CMDS    FOR 
WHICH  THESE   PARAMETERS   ARE   REQUIRED    (NOT 
OPTIONAL) .    GENERATES   ERROR  MSG    IF   PARAMETERS 
ARE    NOT   THERE. 
CALLED  BY:PROTECT$CMD;    RESTRICTSCMD;    UNPROTECTSCMD 

*/ 
STSREQUIREDSPARAMETERS:       PROCEDURE; 

IF   CBUFFSNOTSEMPTY  THEN 

CALL   GETSPARAMETERS; 

ELSE 

CALL    ERRORS MSG; 

END   GETSREQU I REDS PARAMETERS; 


/■*      *      *      *      *      *      SYSTEM  CMD   PROCEDURES      #****/ 

/  o,  <l..vvv  *i****  *■*•  '4r~^  «>»  --i"!*  ^  >y  •>  «k  S"!/  S'  -i*  *J*  S*  *+"  't*  -l*  'if  -t*  *i*  *+*  \fc*  *  Lf  vfc"  'i*  vi?  S^  *i*  "i*  v(f  "i*  "Jf  *P  *Jf  *"£  "*t  "^  ""¥*&  *&  "^  "^  S^  *Jf  "i"  "^   / 

^    ^i  *fi  *^  ^  ^^  *^  »^  »^  *^  *^  r^  if*  *^  ^^  »f»  *^  if*  ^>  *p  ^^  *T*  "T*  *T*  *N  *T*  *T*  *F*  *f»  *T*  *f*  '•*  •?■  *N  •?•  *T*  *r*  *f*  *f*  *T*  *T»  *T*  *T*  *T*  *f*  *t*  *T*  *T»  »T*  «T*  *f*  *T*  *T*  "T*  ^*  ^ 


/*         ATTACHSCMD  - 

FORM:       ATTACH   <DRIVE   LTR>    <DISK  NR>    /<  KEY> 
ALL   THE   PARAMETERS   ARE   OPTIONAL,    HOWEVER 
<KEY>    CAN    NOT   APPEAR  WITHOUT    IT'S   ASSOCIATED 
<DISK  NUMBER> .    WHEN   PARAMETERS    ARE   ENTERED 
THEY  MUST   BE    IN   THE    ORDER    INDICATED. 
CALLED   BY:    MCP    MAIN   CONTROL 

*/ 
V]  ACHSCMD :       PROCEDURE ; 
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IF   CBUFFSNOTSEMPTY  THEN 
DC- 
CHAR  =    READSCMDSLINE; 

IF   LETTER(CHAR)    TEEN  /*   < DRIVE   LETTER>  *S 

DO-, 

PARAMETERS(0)=CHAR-41H;/'*CONVERT  TO  BINARY*/ 
CALL   DEBLANK; 
IF   CBUFFSNOTSEMPTY  THEN   /*   MORE   PARAMETERS   */ 

CHAR   =    READSCMDSLINE; 
END; 
IF   NDMBER(CHAR)    THEN  /*   <DISK  NUMBER>  */- 

DO; 

CALL   GETSNUMBERC 1 ) ; 
CALL   DEBLANK; 

CALL   GETSKEY(2);  /*      <  KEY>  */ 

CALL   DEBLANK; 
END; 
END; 
IF    CBUFFSNOTSEMPTY  THEN 

CALL   ERRORSMSG; 
ELSE 

CALL   SENDS MTSSCMD( ATTACH, . PARAMETERS) ; 
END   ATTACHSCMD; 


/"*         LOGINSCMD   - 

FORM:    LOGIN   <DISK  NUMBER>    /<  KEY> 

THE   PARAMETERS   ARE   OPTIONAL   BUT  < KEY>    CAN   NOT 

APPEAR  WITHOUT  <DISK  NUMBER>  . 

CALLED    BY:    MCP    MAIN    CONTROL 
*/ 
LOGINSCMD:       PROCEDURE; 

IF   CBUFFSNOTSEMPTY  THEN 

CALL    GETSPARAMETERS ; 
CALL   SENDSMTSSCMD( LOGIN, .PARAMETERS) ; 
END   LOGINSCMD; 


/*         PROTECTSCMD   - 

FORM:     PROTECT  <DISK  NUMBER>    /<  KEY> 
THE   PARAMETERS    ARE   REQUIRED. 
CALLED   BY:    MCP    MAIN    CONTROL 

*/ 
PROTECTSCMD:       PROCEDURE; 

CALL   GETSREQUIREDSPARAMETERS; 

CALL  SENDSMTSSCMD( PROTECT,     .PARAMETERS); 

END   PROTECTSCMD; 


r  «"S  *^  t^  »r*  «f*  *f»  *f»  3p  *t+  tftitjZ  rf\  ^f»  3p  *f»  *fC  *p  *f^  *p  «f»  •R  *f»  *fs  Jp  ?f>  *^  ^J*  »^3K  »f*  ^  ?p*  *T*  *t*  *o  *^  *^  *r*  ^p  ^S  ^^  *p  ^^  ^S  ^**^  ^^  <F  ^»  ^5  ^¥*  JP  / 

/*         QUITSCMD   -    FORM:       QUIT 
NO    PARAMETERS. 
CALLED   BY:    MCP   MAIN   CONTROL 
*/ 
QUITSCMD:       PROCEDURE; 

CALL   SENDSMTSSCMD(QUIT,0) ; 
END   QUITSCMD; 


/*         RESTRICTSCMD   - 

FORM:    RESTRICT   <DISK  NUMBER>    /<■  KEY> 
THE   P.4RAMETERS   ARE   REQUIRED. 
CALLED   BY:    MCP    MAIN   CONTROL 

*/ 
RESTRICTSCMD:       PROCEDURE; 

CALL   GETSREQUIREDSPARAMETERS; 

CALL   SENDSMTSSCMD(  RESTRICT.  .PARAMETERS)  ; 

END   RESTRICTSCMD; 
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/*        UNPROTECTSCMD  - 

FORM:    UNFROTECT   <DISK  NUMBER>    /<.  KEY> 
THE   PARAMETERS   ARE   REQUIRED. 
CALLED   BY:    MCP    MAIN   CONTROL 

*/ 
UNPROTECTSCMD :       PROCEDURE ; 

CALL   GETSREQUIREDSPARAMETERS; 

CALL   SENDSMTSSCMD(  UNPROTECT, .PARAMETERS) ; 

END   UNPROTECTSCMD; 


/*        SIZESCMD  - 

FORM:    SIZE   < MEMORY  SIZE> 
THE   PARAMETER    IS   REQUIRED. 
CALLED   BY:    MCP    MAIN   CONTROL 
*/ 
SIZESCMD:       PROCEDURE; 

IF   CBUFFSNOTSEMPTY  THEN 
DO; 
IF   NUMBER(CHAR:=READSCMDSLINE)    THEN 

DO;  /*   GET   MEMORY  SIZE   PARAMETER     */ 

CALL   GETSNUMBER(O) ; 

CALL   SENDSMTSSCMD(  SIZE,    PARAMETERS(  0) ) ; 
END; 
ELSE  /*   PARAMETER  MUST   BE   NUMBER  */ 

CALL   ERRORSMSG;    /*    SPECIFYING   MEMORY  SIZE      */ 
END; 
ELSE  /*   CBUFF   EMPTY  -    ERROR  */ 

CALL   ERRORS MSG;    /*  PARAMETER  REQUIRED      */ 

END   SIZESCMD; 


/  jp  *ff  ^s  *t*  *T*  »?*  ff*  -is  *K  *R #P  *J»  *f*  3p  *f*  ■+*  *f*  *r>  » R  flp 9 P  'P  3p  3p  9P  *f>  *1>  »?•  *i*  3n  ■!*  *1*  «P  *f* *f>  **■*  *P  *t*  *n "P  »<S  3|S  -K  *F  *j^ »P  ?P  »P  »^  *f*  •■K  *fC  *fs  JfC  / 

/*      *      *      MTS    COMMAND    PROCESSOR    (MCP)     MAIN   CONTROL   *      */ 
/•*.      *      *      CALLED    BY:       ITTS    MONITOR  MODULE  *      */ 


DECLARE   STACK   (20)     ADDRESS , OLDSP    ADDRESS; 

OLDSP    =    STACKPTR;  /*    SAVE   MTS   STACK  POINTER  */ 

STACKPTR   =    . STACK(  LENGTH(  STACK) ) ;       /*   SETUP   MCP   STACKPTR  */" 

CALL    INITIALIZE;  /*    INITIALIZE   DATA  STRUCTURES  */ 

CALL   FILLSCBUFF;  /*    GET  MTS    COMMAND  */ 

CALL    DEBLANK;  f*    SCAN   TO   FIRST   NONBLANK  CHAR  */ 

IF   CBUFFSNOTSEMPTY  THEN      /*    PROCESS   CMD   BUFFER  */ 

DO; 

CHAR   =    READSCMDSLINE;/*   GET   FIRST   LETTER  OF   CMD  */ 

CALL   SCANSTOSBLANK;       /*    SCAN   TO    NEXT   BLANK,    BECAUSE 

ONLY  THE   FIRST  LETTER    IS    USED 

TO   DETERMINE   THE   CMD  */ 

CALL  DEBLANK; 

IF   CHAR  ■    'A'    THEN  /*   ATTACH        */ 

CALL   ATTACHSCMD; 
ELSE 

DO; 

IF    CHAR   =     'L'    THEN  S*   LOGIN  */" 

CALL   LOGINSCMD; 
ELSE 

DO; 

IF   CHAR  =     'P'    THEN  /*   PROTECT      */ 

CALL    PROTECTSCMD; 
ELSE 

DO; 

IF    CHAR  =     '  Q*    THEN  /'*    QUIT  */ 

CALL   QUITSCMD; 


ELSE 


DO; 

IF   CHAR   =    * R'    THEN        /*   RESTRICT  */ 
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CALL  RESTRICTSCMD; 
ELSE 

DO; 

IF  CHAR=*S'  THEN  /*  SIZE     */ 

GALL  SIZESCMD; 
ELSE 
DO; 
IF  CHAR='U'  THEN/'*UNPROTECT*/' 

CALL  UNPROTECTSCMD; 
ELSE 

CALL  ERRORS MSG; 
END; 
END; 
END; 
END; 
END; 
END; 
END; 

FINI: 

STACKPTR  =  OLDSP;   /*  RESTORE  MTS  MONITOR  STACKPTR       */ 

END  MCP; 
EOF 
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